macro code for constant copy but variable paste cell

Not entirely clear but perhaps along the lines of:

Cells(Rows.Count,"A").End(xlUp).Offset(1).Value = Range("A1").Value