exempel på makro som du kan leka med:
Private Sub CommandButton1_Click()
Dim rkällcell As Range
Dim rMålcell As Range
'ange var du hämtar värdet:
Set rkällcell = Worksheets("Blad1").Range("A1")
' Anger cell AA1 som målcell.
Set rMålcell = Worksheets("Blad1").Range("AA1")
' Om AA1 är tom så används den som målcell.
' Annars söks den sista ifyllda cellen i kolumn AA och cellen nedanför anges som målcell.
If rMålcell.Value <> "" Then
Set rMålcell = Worksheets("Blad1").Columns("AA").Find("*", searchorder:=xlByColumns, searchdirection:=xlPrevious)
Set rMålcell = rMålcell.Offset(1, 0)
End If
' sen säger man att värdet i kolumn AA, rad? skall = värdet i A1
' (dvs man skippar klipp och klistra och tilldelar värdet istället)
rMålcell.Value = rkällcell.Value
End Sub