実行時エラー1004 オートフィルができない

質問

エクセルなのですが、A列の文字にたいする数式をＢ列に入れて最終行までオートフィルするマクロを作りたいのですが実行時エラー1004が発生してしまいます。

Sub macro1()
Dim LastRow As Long

LastRow = Range("A65536").End(xlUp).Row

Range("B1").Value = "=LEN(A1)"
Range(Range("B1"), Selection).AutoFill Destination:=Range("B1:B" & LastRow)
End Sub

このコードです。
Range(Range("B1"), Selection).
ここら辺が怪しいかなと思ってるのですが、どうすればいいでしょうか？

オートフィルを使わずにfor～nextでやる方法も知ってますが、オートフィルでやる方法をご教授いただきたいです。
よろしくお願いします。

回答No.2

KURUMITO · ベストアンサー

勿論次のようでもよいでしょう。

Sub macro1()
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
Range("B1").Value = "=LEN(A1)"
Range("B1").AutoFill Destination:=Range("B1:B" & LastRow)
End Sub

お礼

どうもありがとうございました。

回答No.1

KURUMITO

次のようにすればよいでしょう。

Sub macro1()
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
Range("B1").Value = "=LEN(A1)"
Set SourceRange = Range("B1")
Set fillRange = Range("B1:B" & LastRow)
SourceRange.AutoFill Destination:=fillRange
End Sub

お礼

どうもありがとうございました。