VBAで列が可変のオートフィルの実装

質問

元となるSheet1のR列を「Sheet1～3」以外のシートの名前で
オートフィルターさせてその内容をコピーし、数式を代入させたあと、連続データをＥの列の最終セルまで
連続させてコピーするという下記のVBAを実装しました・・・が

連続データさせるＥの列が１つしかなかった場合、連続データできないのでエラーが起きてしまします
ですのでそれは無視してよいと単純に「On Error Resume Next」で処理しちゃってます
でもこれでは、あまり良くない処理のような気がするのですが・・・
連続データ出来ない場合は、１つのセルに数式を代入するだけでおしまい
というプログラム処理はどのようにやればいいのでしょうか？

' オートフィルター
For Each sh In Worksheets
If sh.Name <> "Sheet1" And sh.Name <> "Sheet2" And sh.Name <> "Sheet3" Then
Dim Filtarget As Range
Dim Maction As Range
'コピーの開始する場所
Set Filtarget = Sheets(sh.Name).Range("A4")
Set Maction = Sheets(sh.Name).Range("W4")
Set Fills = Sheets(sh.Name).Range("X4")
With Sheets("Sheet1").Range("R3")
.AutoFilter Field:=18, Criteria1:=sh.Name
.CurrentRegion.Copy
With Worksheets.Add
.Paste
.Range("1:3").Delete
.UsedRange.Copy Filtarget
.Range("X1").Formula = "=E1/W1"
.Range("M1:M" & Cells(Rows.Count, 13).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Maction
.Range("X1").AutoFill Destination:=Range("X1:X" & Cells(Rows.Count, 5).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
On Error Resume Next
.Range("X1:X" & Cells(Rows.Count, 5).End(xlUp).Row).SpecialCells(xlCellTypeVisible).NumberFormatLocal = "\#,##0;\-#,##0"
.Range("X1:X" & Cells(Rows.Count, 5).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Fills
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
.AutoFilter Field:=18
End With
End If
Next

以上、よろしくお願い致します。

回答No.1

dogs_cats

E列の最終行取得時に最終行が２以上の場合に実行するようにすれば良いだけでしょう。
コピーフィルだけで回避すればOKなのでしょうか？
コードの途中に変数を宣言するのはReDim以外は使用するのは止めた方が良いと思います。
変数宣言は冒頭纏めるのが一般的で、他人が見てもそちらの方が理解し易いです。

Dim MaxRow As Long

MaxRow = Cells(Rows.Count, 5).End(xlUp).Row

if MaxRow>1 then

.Range("X1:X" & Cells(Rows.Count, ).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Fills

end if

お礼

ありがとうございます。
これ、考えてやってみたんですけど、できないんすよね・・・