macro copia e inserisce righe da un foglio in un altro foglio

Sub CopiaRighe()
Dim shFROM As Worksheet, shTO As Worksheet, urFrom As Long, urTo As Long, r As Long
Set shFROM = Worksheets("A1") ' (oppure B1)
Set shTO = Worksheets("A")    ' (oppure B)
urFrom = shFROM.Range("A" & Rows.Count).End(xlUp).Row
urTo = shTO.Range("A" & Rows.Count).End(xlUp).Row + 1
For r = 8 To urFrom
    shFROM.Cells(r, 1).EntireRow.Copy shTO.Cells(urTo, 1)
    urTo = urTo + 1
Next
Set shFROM = Nothing
Set shTO = Nothing
End Sub