Hi
Removed the .Offset(1) but it made no difference
Not sure what you have done, but you need to make
two changes to the original code.
1. Move the .Offset to where you did try,
and
2. Delete the .Offset as per my previous post.
This code works for me.
<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> RowBelowMarker()<br> <SPAN style="color:#00007F">Const</SPAN> Marker <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> = "xx" <SPAN style="color:#007F00">'<-- Change to suit your marker</SPAN><br> <SPAN style="color:#00007F">Dim</SPAN> MarkerFound <SPAN style="color:#00007F">As</SPAN> Range<br> <SPAN style="color:#00007F">Dim</SPAN> FirstAddress <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br> <br> Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br> <SPAN style="color:#00007F">With</SPAN> Range("D1", Range("D" & Rows.Count).End(xlUp))<br> <SPAN style="color:#00007F">Set</SPAN> MarkerFound = .Find(What:=Marker, After:=.Cells(1, 1), LookIn:=xlValues, _<br> LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)<br> <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> MarkerFound <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN><br> FirstAddress = MarkerFound.Address <SPAN style="color:#007F00">'<-- Change 1</SPAN><br> <SPAN style="color:#00007F">Do</SPAN><br> MarkerFound.Offset(1).EntireRow.Insert <SPAN style="color:#007F00">'<-- Change 2</SPAN><br> <SPAN style="color:#00007F">Set</SPAN> MarkerFound = .FindNext(After:=MarkerFound)<br> <SPAN style="color:#00007F">Loop</SPAN> <SPAN style="color:#00007F">While</SPAN> MarkerFound.Address <> FirstAddress<br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br> Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>