Macro Range Solved/Closed

Question

Hello, 



I am somewhat inexperienced in the world of macros in excel. I have a looping macro that runs from the bottom and i want it to stop at a  specific row. Below is the macro.

Can  anyone help me with this?

Thanks,

Jim

Sub InsertRows()
  
  Dim r As Long, mcol As String, i As Long
  
' find last used cell in Column A
  r = Cells(Rows.Count, "A").End(xlUp).Row

 ' get value of  last used cell in column A
  mcol = Cells(r, 1).Value

 ' insert rows by looping from bottom
  For i = r To 2 Step -1
     If Cells(i, 1).Value <> mcol Then
       mcol = Cells(i, 1).Value
        Rows(i + 1).Insert
     End If
  Next i

End Sub

venkat1926 · Answer

i wonder can you not do this in this code

For i = r To 2 Step -1 

instead of 2 can you not type some other number 7 or l9 or 12

Jim Clanton · Answer

Thanks vankat. That worked perfectly. If I knew what I was doing I would have  probably known that.

Thanks again, 
Jim

Jim Clanton · Answer

venkat

As I said, your solution worked great. The only problem is that the person I was doing this for wants the column and stop row to be those of the selected cell. I'm sure you know that you never get the whole story in the beginning.

Thanks,

Jim

venkat1926 · Answer

I seem to have answered this perhaps to a private message . please see that.

Macro Range

4 responses

Similar discussions

Subscribe To Our Newsletter!