Sub 最終行コピー貼り付け()

'変数の宣言
    Dim LstRow1 As Long
    Dim LstRow2 As Long
    Dim LstRow3 As Long
   
'最終行の取得
    LstRow1 = Worksheets("取込み").Cells(Rows.Count, 1).End(xlUp).Row
    LstRow2 = Worksheets("提出").Cells(Rows.Count, 2).End(xlUp).Row
    LstRow3 = Worksheets("提出").Cells(Rows.Count, 3).End(xlUp).Row
'タイトル行を除き、Sheet2へコピー、貼り付け
    Worksheets("取込み").Range("A1:B" & LstRow1).Copy
    Worksheets("提出").Range("B" & LstRow2).Offset(1, 0).PasteSpecial xlPasteAll
     Application.CutCopyMode = False
    Range("A1", Cells(Rows.Count, 1).End(xlUp)).EntireRow.Delete
        Worksheets("提出").Activate
    Range("A1").Select
   
    Worksheets("取込み").Activate
    Range("A1").Select
   

End Sub