Macro to find a number from a list and insert a row under it.

[tonywatsonhelp]

Hi Everyone,

In Sheet "Data" Column A I have Client Id's

In Sheet Control, Column H I have a list of Client Ids,

I need a macro that can go down "Data" Column A. Find the last of each client ids and instert a row and put the client Id Number into that Row column A

So if I have 6 Client Id's I gets 6 Rows added with just client ids in them.

Please help if you can

Thanks

Tony

 

[Fluff]

How about

Sub AddBlankRow()
   Dim i As Long
   For i = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
      If Range("A" & i) <> Range("A" & i - 1) Then
         Rows(i).Insert
         Range("A" & i) = Range("A" & i - 1)
      End If
   Next i
End Sub

 

[tonywatsonhelp]

Thanks Fluff, I think I can play about and get this to do what I need thanks very much

Tony

 

[Fluff]

You're welcome