[ChrisGT7]

Καλησπέρα και Χριστός Ανέστη Γιώργο,

Δοκίμασε την παρακάτω μακροεντολή αν σε καλύπτει:

Option Explicit

Sub TAIRIASMA()
    Dim I As Long, R As Long
    R = Range("A" & Rows.Count).End(xlUp).Row
    For I = 1 To R
        If Range("A" & I).Value <> Range("B" & I).Value Then _
            Range("B" & I & ":D" & I).Insert Shift:=xlDown
    Next
End Sub

Υ.Γ. Πολύχρονος και ευτυχισμένος για χθες!