Format mit in die nächste Zeile Übertragen

Sub Makro010_()
Dim z As Long
Dim k As Long
Call Links_ist_da
With UserForm1
If Cells(ActiveCell.Row, 3)  "" And Cells(ActiveCell.Row, 12)  "" Then  'sind auch  _
alle Zellen gefüllt?
ActiveCell.Offset(1).Select
k = ActiveCell.Row
If Range("A" & k) = "" Then
Range("A" & k).Value = Range("A" & k - 1).Value + 1
Range("A" & k - 1 & ":L" & k - 1).Copy
Range("A" & k).PasteSpecial xlPasteFormats
End If
Unload UserForm1
UserForm1.Hide
If Cells(ActiveCell.Row + 1, 1).Value = "" Then                   ' erhöhe in A die  _
Zahl um +1
Cells(ActiveCell.Row + 1, 1).Value = Cells(ActiveCell.Row, 1).Value + 1
End If
UserForm1.Show vbModeless
Else
MsgBox "Machs jetzt nicht, weil ....na es fehlt doch was!"
End If
End With
End Sub