Letzte aktive Zeile in einem definierten Bereich

folgendes Makro kopiert aus einer fixen Zeile Werte oder Formeln in die jeweils nächste freie Zeile.

Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
Cells(12, 1).Copy Destination:=Cells(laR + 1, 1)
Cells(laR + 1, 2) = Cells(11, 2)
Cells(laR + 1, 3) = Cells(11, 3)
Cells(laR + 1, 4) = Cells(11, 4)
Cells(laR + 1, 5) = Cells(11, 5)
Cells(11, 6).Copy Destination:=Cells(laR + 1, 6)

Problem 1:
In Zeile 42 möchte ich eine beliebige markierte Zeile der Liste darstellen.

Problem 2:
Wenn (1) funktioniert ist ja Zeile 42 letzte gefüllte Zeile und mein obiges Makro kopiert absofort in Zeile 43, 44, 45 etc.
Wie kann ich das verhindern?