gemme celle værdier i variabler

Hvorfor gemmes der ikke noget i navnene CopyFromX

Formålet er at finde 1. tomme celle i kolonne A og putte værdierne af de 4 celler ovenover ind i navnene.

Dim CopyFrom1, CopyFrom2, CopyFrom3, CopyFrom4 As String
Range("A5").Select
Selection.End(xlDown).Offset(1, 0).Select
CopyFrom1 = Range(ActiveCell.Offset(-1, 0)).Value
CopyFrom2 = Range(ActiveCell.Offset(-2, 0)).Value
CopyFrom3 = Range(ActiveCell.Offset(-3, 0)).Value
CopyFrom4 = Range(ActiveCell.Offset(-4, 0)).Value