find og flyt 2 linier op

Du har 2 spørgsmål om samme enme:
http://www.eksperten.dk/spm/862206
/Be_Nice

Prøv denne her :o)

Sub Fed()
Application.ScreenUpdating = False

Range("a1").Select ' Eller hvor du nu vil starte løkken

    Do
        If ActiveCell.Value = "Kontonummer" Then
            ActiveCell.offset(-2,0).Select
            Selection.Font.Bold = True
            ActiveCell.Offset(3, 0).Activate
        Else
            ActiveCell.Offset(1, 0).Activate
        End If
       
    Loop Until ActiveCell.Value = ""
   
End Sub

Kom til at oprette denne dobbelt