Sub 最終行のみ削除する()
    
    '最終行を取得する＝5
    最終行 = Cells(Rows.Count, "A").End(xlUp).Row
    
    '最終行の値のみを削除したい（行を詰めない）場合
    Rows(最終行) = ""
    
    '最終行の行ごと削除したい（行を詰める）場合はこちら
    'Rows(最終行).Delete
    
End Sub