Zellen in Spalte A:K in aktiver Zeile markieren

Sub bold_underline()
Set r = Range("A2", Range("A2000"))
For Each c In r
If c.Font.bold = True Or c.Font.Underline = xlUnderlineStyleSingle Then
c.EntireRow.Activate
'hier sollte eine Anweisung stehen die mir in der aktuellen Zeile die Zellen von Spalte A bis K markiert
Selection.Cut
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveSheet.Paste
End If
Next
End Sub