dichiarare una colona☹

Salve a tutti
ho creato questo codice vba che mi ripporta i dati del foglio database da A3:a50 in un altro fogli sempre in A3:A50,e fino a qui sono capace ☹(almeno penso)
Sub prova()
For i = 3 To 50

If Worksheets("database").Cells(i, 1) > 0 Then

Cells(i, 1) = Worksheets("database").Cells(i, 1)

End If

Next i
End Sub()

il problema adesso e che dovrei fare un codice che mi riporti i datti dal A55:A102 del foglio database nel altro foglio pero nella colona F . in F3:F50
qualcuno mi puo aiutare

ciao
cambia colonna
Sub prova_3_50()
For i = 3 To 50
If Worksheets("database").Cells(i, 1) > 0 Then

Cells(i, 1) = Worksheets("database").Cells(i, 1)
End If
Next i




End Sub
Sub prova_55_102()
For i = 55 To 102
If Worksheets("database").Cells(i, 1) > 0 Then

Cells(i, 6) = Worksheets("database").Cells(i, 1)
End If
Next i




End Sub

ciao
federico460
grazie per la risposta,pero devo portare i datti nella riga 3 della colona 6 quindi in F3:F50

cosi me li porta nella riga 55

End Sub
Sub prova_55_102()
For i = 55 To 102
If Worksheets("database").Cells(i, 1) > 0 Then
Cells(i, 6) = Worksheets("database").Cells(i, 1)
End If
Next i
End Sub

ciao

---

Sub prova_55_102()
For i = 55 To 102
If Worksheets("database").Cells(i, 1) > 0 Then

Cells(i - 52, 6) = Worksheets("database").Cells(i, 1)
End If
Next i

End Sub

---

ma porco cane per un meno 52 sono stato due giorni ad impazzire .ti ringrazio federico460 ti sono debitore