エクセル 最終行からの連続コピー

質問

エクセルで最終行から上に連続する１０行（最終行含む）をコピーしたいです。
途中、空白行が含まれている場合でも、最終行を特定し、コピーできるようにするには、下記のコードにどう手を加えたらよいでしょうか？
どなたかアドバイスをお願いします。

Sub Test()
　　Dim i As Long
　　Dim j As Integer
　　Dim rng As Range
　　With ActiveSheet

　　　　'フィルタ
　　　　.Range("A1").CurrentRegion.AutoFilter Field:=1

　　　　'行選択
　　　　With .AutoFilter.Range
　　　　　　For i = .Cells(.Cells.Count).Row To 2 Step -1
　　　　　　　　If .Rows(i).Hidden = False Then
　　　　　　　　　　If rng Is Nothing Then
　　　　　　　　　　　　Set rng = .Rows(i)
　　　　　　　　　　Else
　　　　　　　　　　　　Set rng = Union(rng, .Rows(i))
　　　　　　　　　　End If
　　　　　　　　　　j = j + 1
　　　　　　　　End If
　　　　　　　　If j >= 10 Then Exit For
　　　　　　Next i

　　　　　　'コピー
　　　　　　If Not rng Is Nothing Then
　　　　　　　　rng.Copy Worksheets("Sheet2").Range("A1")
　　　　　　　　Beep
　　　　　　Else
　　　　　　　　MsgBox "該当行は存在しません。", 48
　　　　　　End If
　　　　End With
　　End With
　　Set rng = Nothing

なお、コードはこちらを参考にさせていただきました。
http://okwave.jp/qa3552420.html?ans_count_asc=1

回答No.1

hornest

Endは空白があると、そこを認識してしまいます。
なので以下をお試しください。
ActiveSheet.Cells.SpecialCells(xlLastCell).Address
上記は、Excelが認識している最終行を取得します。

お礼

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