Thanks a million!! That works great!




"Tom Ogilvy" wrote:

Sub Populate2005Data()
'
' Populate2005Data Macro
' Macro recorded 11/16/2005 by Rick Billingsley
'
'
Dim sh as Worksheet, sh1 as Worksheet
Dim rw as Long
for rw = 2 to 25
Set sh = Worksheets("2005 Elections")
set sh1 = Worksheets("Side One")
Sh.Range("A" & rw).Copy sh.Range("A1")
sh.Range("B" & rw).Copy sh1.Range("G6:I6")
sh.Range("L" & rw).Copy sh1.Range("E14:H14")

sh.Range("M" & rw).Copy sh1.Range("E15:H15")
sh.Range("N" & rw).Copy sh1.Range("E16:H16")
sh.Range("O" & rw).Copy sh1.Range("E17:H17")
sh.Range("Q" & rw).Copy
sh1.Range("K23").PasteSpecial Paste:=xlPasteValues
sh.Range("R" & rw).Copy
sh1.Range("K24").PasteSpecial Paste:=xlPasteValues
Worksheets("Side One").PrintOut _
Copies:=1, Collate:=True
Next rw
End Sub

Change
for rw = 2 to 25

to reflect the rows you want printed.

--
Regards,
Tom Ogilvy



"Rick Billingsley" wrote in
message ...
Tom,

Thanks for the response. I am no programmer so I'm going to need a little
more help.

Here is a section of the macro. This repeats for about 10 different data
elements that are not contiguous within the row.

Sub Populate2005Data()
'
' Populate2005Data Macro
' Macro recorded 11/16/2005 by Rick Billingsley
'
'
Sheets("2005 elections").Select
Range("A18").Select
Selection.Copy
Sheets("Side One").Select
ActiveSheet.Paste
Sheets("2005 elections").Select
Range("B18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Side One").Select
Range("G6:I6").Select
ActiveSheet.Paste

End Sub