Find, kopier og fjern makro

kan du ikke prøve at vise "efter- situationen" af kolonne A & B

Før

Kol A        Kol B
AFD1
AFD1
AFD1 Total
AFD2
AFD2
AFD2
AFD2 Total

Efter

Kol A        Kol B
AFD1
AFD1
AFD1        AFD1 Total
AFD2
AFD2
AFD2
AFD2        AFD2 Total

Ok & tak - vender tilbage...

Super :-)

Public Sub kopierOgSlet()
Const søgEfter = "Total"
Const position = 6

Dim antalRæk As Long, ræk As Long
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRæk
        If InStr(Range("A" & ræk), søgEfter) = position Then
            Range("B" & ræk) = Range("A" & ræk)
            Range("A" & ræk) = Left(Range("A" & ræk), position - 1)
        End If
    Next ræk
End Sub

Perfekt, takker

Selv tak - du får et svar..