macro til formatering

Du kan bruge den her kode.
Prøv at sætte makøren i A2
hold Ctrl nede og tryk på L
så løver koden ned af for hver gang du trykker.
Sub Makro1()
    ActiveCell.Range("A1:K1").Select' Ret selv til (Hel linje er A1:IV1)
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    Selection.Copy
    ActiveCell.Offset(2, 0).Range("A1").Select
    ActiveSheet.Paste
End Sub

Den her er bedre hvis du har tal i.

Sub Makro3()
    ActiveCell.Range("A1:K1").Select ' ret selv til her
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
    ActiveCell.Offset(2, 0).Range("A1").Select
End Sub

Jeg glemte at du selv når du har lagt koden ind i et modul, skal
vælge makro Indstillinger og genvejstast

Her er en der kører efter markeret område

Public Sub FarvelægLinier()
I = 0
S = Selection.Row
k = Selection.Column
kc = ((Selection.Areas(1).Columns.Count) - 1)
sc = (Selection.Areas(1).Columns.Count)
For Each C In Selection
I = I + 1
If C.Column = k And I > sc Then
  Range(Cells(C.Row, k), Cells(C.Row, k + kc)).Select
  Selection.Interior.ColorIndex = 15
I = 0
End If
Next
End Sub

Ellers smart løsning som jeg skriver mig bag øret fagpoler men kabbak får pointene da det er løser den aktuelle ønske

Tak for pointz ;-)