What am I doing wrong here?
Sub Appenddata()
Dim lastrow1 As Long, lastrow2 As Long
Dim ws1 As Worksheet, ws2 As Worksheet
Dim WB As Workbook
Set WB = ThisWorkbook
Set ws1 = WB.Sheets("ACT")
Set ws2 = WB.Sheets("OFC")
lastrow1 = ws1.Range("A" & Rows.Count).End(xlUp).Row
lastrow2 = ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
ws2.Range("A2:D" & lastrow2).Copy ws1.Range("A" & lastrow1)
ws2.Range("E2:E" & lastrow2).Copy ws1.Range("F" & lastrow1)
ws2.Range("F2:F" & lastrow2).Copy ws1.Range("H" & lastrow1)
ws2.Range("G2:G" & lastrow2).Copy ws1.Range("J" & lastrow1)
ws2.Range("H2:H" & lastrow2).Copy ws1.Range("L" & lastrow1)
ws2.Range("I2:J" & lastrow2).Copy ws1.Range("N" & lastrow1)
End Sub
Sub Appenddata()
Dim lastrow1 As Long, lastrow2 As Long
Dim ws1 As Worksheet, ws2 As Worksheet
Dim WB As Workbook
Set WB = ThisWorkbook
Set ws1 = WB.Sheets("ACT")
Set ws2 = WB.Sheets("OFC")
lastrow1 = ws1.Range("A" & Rows.Count).End(xlUp).Row
lastrow2 = ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
ws2.Range("A2:D" & lastrow2).Copy ws1.Range("A" & lastrow1)
ws2.Range("E2:E" & lastrow2).Copy ws1.Range("F" & lastrow1)
ws2.Range("F2:F" & lastrow2).Copy ws1.Range("H" & lastrow1)
ws2.Range("G2:G" & lastrow2).Copy ws1.Range("J" & lastrow1)
ws2.Range("H2:H" & lastrow2).Copy ws1.Range("L" & lastrow1)
ws2.Range("I2:J" & lastrow2).Copy ws1.Range("N" & lastrow1)
End Sub