Option Explicit
Sub cpynpste()
Dim w1 As Worksheet, w2 As Worksheet, w3 As Worksheet
Dim lr As Long, lr2 As Long, lr3 As Long
Set w1 = Sheets("Sheet1"): Set w2 = Sheets("Sheet2")
Set w3 = Sheets("Sheet3")
lr = w1.Range("A" & Rows.Count).End(xlUp).Row
lr2 = w2.Range("A" & Rows.Count).End(xlUp).Row
lr3 = w3.Range("A" & Rows.Count).End(xlUp).Row
w1.Range("A2:G" & lr).Copy
w3.Range("A" & lr3 + 1).PasteSpecial (xlPasteValues)
w2.Range("A2:G" & lr2).Copy
w3.Range("H" & lr3 + 1).PasteSpecial (xlPasteValues)
MsgBox "Action Complete"
End Sub