エクセルのＶＢＡの記述について

質問

ＶＢＡの記述についてなのですが、

Sub filter()
Dim gyo As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Set ws1 = Worksheets("データ")
Set ws2 = Worksheets("チーム")
Application.ScreenUpdating = False
ws2.Range("A4:BH30").Clear
gyo = ws1.Range("A65536").End(xlUp).Row
ws1.Activate
With ws1.Range(Cells(4, 1), Cells(gyo, 6))
.AutoFilter Field:=1, Criteria1:="A"
.SpecialCells(xlCellTypeVisible).Copy ws2.Range("A4")
Selection.AutoFilter
End With
Application.ScreenUpdating = True
End Sub

ならプログラムははしるのですが、
１４行目を
.SpecialCells(xlCellTypeVisible).Copy ws2.Range(Cells(4, 1))
だと
「実行時エラー １００４
Rangeメソッドは失敗しました　Worksheet　オブジェクト」
とでるのですが、出来ないのでしょうか？
Cells(4, 1)の１のところを変数にして変えていきたいのですが、よい方法はありますか。
よろしくお願いいたします。

回答No.1

xls88 · ベストアンサー

未確認ですが
下記で通ると思います。
.SpecialCells(xlCellTypeVisible).Copy ws2.Range(ws2.Cells(4, 1).Address)
↓これでもOKだと思います。
.SpecialCells(xlCellTypeVisible).Copy ws2.Cells(4, 1)

お礼

早速のご回答ありがとうございました。
試してみましたら、エラーなく終われました。
助かりました。