Macro to shift entire row to right based on search term

[puneet_kashyap]

Hi,

I have an excel with following sample data :-

FIRST_NAME    LAST_NAME   DOB

ANDRE  SYMMONDS 12/11/1978

JAY  SIMMONS 3/4/1988

FIRST_NAME    LAST_NAME   DOB

ROBBIN  WILLIAMS 5/10/1954

FIRST_NAME    LAST_NAME   DOB

SANDRA   LIN   12/5/1976

JOHN   SMITH  4/3/1982

my requirement is to shift all header rows(FIRST_NAME LAST_NAME DOB) to 3 places to right.
so only headers will be shifted to right rest data fields will remain in their positions.

I am using excel 2010

Thanks,
Puneet

[puneet_kashyap]

Probably i was not clear enough

I just want a vba code using which i can shift rows containing word "first_name" to right side.
so the code should look for this term in first column and whereever it finds this term, entire row should shift to right side

Please let me know if i am not clear

[venkatpvc]

I dont Understand Exactly What you said, but maybe this below code please try let us this is what you looking for.

Sub myTest()
Dim i As Integer
i = 1
  Do While Range("a" & i) <> ""
    If Left(Range("a" & i).Value, 1) = "F" Then
        Range("a" & i).Resize(1, 3).Copy Range("a" & i).Offset(0, 3)
    End If
    i = i + 1
  Loop
End Sub