paste after each row?

[CGC]

I have a spreadsheet with a list of appointments in this format:
03/25/04 9AM John Doe ID: 123456
03/25/04 10 AM Jane Doe ID: 234567

There are several hundred rows of data in this spreadsheet.

I would like to paste a portion of text after each row in order t
create billing slips, which would be basically this form:

03/25/04 9AM John Doe ID: 123456

__ .25 hr appt - $X __ .75 hr appt - X
__ .50 hr appt - $X __ 1.0 hr appt - X

Signature: ____________________________

Is it possible to automatically paste this text after each row of data
Thank you

 

[Ron de Bruin]

Hi CGC

Try this for the active sheet

The 6 lines of text are in Sheets("Sheet2").Rows("1:6")

Sub test()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
Dim Rng As Range
numRows = 6
Set Rng = ActiveSheet.UsedRange
For R = Rng.Rows.Count To 1 Step -1
Rng.Rows(R + 1).Resize(numRows).EntireRow.insert
Sheets("Sheet2").Rows("1:6").Copy _
Rng.Rows(R + 1)
Next R
Application.ScreenUpdating = True
End Sub