insert rows/columns

[sheryar]

Hi to all!

I have 3000 rows in a sheet. I'm using following code to insert blank row becasue i need to create space between two rows.

Sub InsRows()
Dim LR As Long, i As Long, j As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
For i = LR To 2 Step -1
Rows(i).Insert
Next i
End Sub

Now the problem is that i need also to insert a blank column between two columns.My columns are "A:AC".

i need expert advice where i will add extra line of code that will do both work like insert row and also column.

My english is not good. so i beg your pardon.
regards

[Palmetto]

Per the Forum Rules you agreed to follow, please amend your thread to apply code tags. All VBA code must be wrapped in code tags.

3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # button at the top of the post window. If you are editing an existing post, press Go Advanced to see the # button. For more information about these and other tags, click here.

[sheryar]

Hi!
Thanks for your information. I'll be carefull in future

[Palmetto]

Code amended, changes in red.

Please Login or Register  to view this content.

[sheryar]

Hi!
Thanks for your help.I was making mistake instead using xltoleft i tried with xltoright.
Thanks again my problem solved.
regards

[Palmetto]

Glad to have helped.

Please be sure to mark your thread as solved by going to top of your first post anc clicking on Thread Tools, then Go Advanced.