View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
HKaplan HKaplan is offline
external usenet poster
 
Posts: 80
Default How do i insert blank rows between data that is thousands of rows

Edit this simple macro:

Sub RowInsert()

For X = 2 To 12000
Rows(X).Select
Selection.Insert Shift:=xlDown
X = X + 1
Next X

End Sub