insert rows/columns

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