Formula o Macro copia/incolla se

Sub Inserisci()
Dim sh As Worksheet
zona = Cells(9, 9)
On Error Resume Next
Set sh = Worksheets(zona)
On Error GoTo 0
If Not sh Is Nothing Then
    ur = sh.Range("A" & Rows.Count).End(xlUp).Row + 1
    c = 1
    For j = 6 To 9
        sh.Cells(ur, c) = Cells(9, j)
        c = c + 1
    Next j
Else
    MsgBox "Foglio inesistente"
    Exit Sub
End If
End Sub

Sub Inserisci()
Dim sh As Worksheet
'assegno alla variabile "zona" il nome del foglio dove copiare
zona = Cells(9, 9)
' mi accerto che esiste
On Error Resume Next
Set sh = Worksheets(zona)
On Error GoTo 0
' se il foglio c'è:
If Not sh Is Nothing Then
    'calcolo la prima riga utile del foglio di destinazione
    ur = sh.Range("A" & Rows.Count).End(xlUp).Row + 1
    ' n. colonna dove scrivere nel foglio destinazione
    c = 1
    ' il cliclo legge una per una le celle F9-G9-H9-I9 di "inserimento"
    For j = 6 To 9
        ' e le copia nel foglio destinazione
        sh.Cells(ur, c) = Cells(9, j)
        ' incrementa la colonna dove copiare il dato successivo
        c = c + 1
    Next j
Else
    'se il foglio dove copiare non esiste lo segnala
    MsgBox "Foglio inesistente"
    Exit Sub
End If
End Sub