Sub 日付()
 
    '変数の宣言
    Dim i As Long '<== 行数をカウントアップするための変数
    Dim LstRow1 As Long
    Dim a As Date
   
     LstRow1 = Worksheets("取込み").Cells(Rows.Count, 1).End(xlUp).Row

    '↓ここからループのスタートです（変数iが1から1000になるまでループします）
    For i = 1 To LstRow1
    a = Date
   
        'ループ内で繰り返し処理される内容です
        Cells(i, 2) = a '<== A列に行番号を振ります
       
    Next i '<== iを省略してNextだけ書くこともできます
    '↑ここまでがループです
 
End Sub