Copy data from one worksheet to another

[Howard]

I have a worksheet set up to enter first and last names in cell C8 and G8 and
I need to have this to be copied to another worksheet in two columns headed
as First Name and Last name when I click on another cell to activate the
print and save function.

 

[JulieD]

Hi Howard

are the first & last names in C8 & G8 always going to the same cells in the
second sheet - or do you want them to go in to the next available line in a
column of first & last names?

also, what you do mean when you say "i click on another cell to activate the
print & save function" to do have a macro that runs a print & save
function (if so could you copy & paste it into your reply to the above
question).

Thanks
JulieD

 

[Howard]

Hello Julie,
The first and last names are supposed to go to the next availiable line in
columns for first and last names.
I have a macro set up which moves the data to the second sheet and prints a
report then resets the first sheet to recieve additional names. Here is the
macro and thanks for your time.

Sub finishup()
'
' finishup Macro
'
'

'
Sheets("PATRON LOG").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Rows("3:3").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("RESERVATION CONFIRM").Select
Range("E9").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A811").Select
Selection.ClearContents
Range("B1212").Select
Selection.ClearContents
Range("H8:K12").Select
Selection.ClearContents
Range("C15").Select
Selection.ClearContents
Range("C16").Select
Selection.ClearContents
Range("D17").Select
Selection.ClearContents
Range("J16").Select
Selection.ClearContents
Range("A8:B8").Select
ActiveCell.FormulaR1C1 = "first name"
Range("C88").Select
ActiveCell.FormulaR1C1 = "last name"
Range("A99").Select
ActiveCell.FormulaR1C1 = "address…use second line below if needed"
Range("A11:B11").Select
ActiveCell.FormulaR1C1 = "city"
Range("C11").Select
ActiveCell.FormulaR1C1 = "state"
Range("D11").Select
ActiveCell.FormulaR1C1 = "zip code"
Range("B1212").Select
ActiveCell.FormulaR1C1 = "phone with area code..just digits"
ActiveWorkbook.Save
End Sub