Need to transfer form and data to another sheet.

[Lcook]

I am creating a paycheck stub for employees. After stub is filled and printed I wanted to copy it to sheet 2 including its data including the form itself. 80% of the forms data have answers created by formula. These numbers will not transfer they just fill in as zeros('0'). I have attached the VB code I am using for the transfer. I just can not get the data to transfer as well.
CODE:
Sub CopySource()
Dim rngSource As Range
Dim rngTarget As Range
Dim iRow As Integer

Set rngSource = Worksheets("Sheet1").Range("SourceData")
iRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 3
Set rngTarget = Worksheets("Sheet2").Range("A" & iRow)
rngSource.Copy Destination:=rngTarget

Thank you for your help.

[Norie]

Any chance you could upload a sample workbook?

Click on GO ADVANCED, scroll down and click Manage Attachments.

[Lcook]

Any luck as to what I am supposed to do?

[Logit]

xlPasteSpecial

https://msdn.microsoft.com/en-us/lib...ffice.11).aspx

Another discussion

http://stackoverflow.com/questions/1...ulas-excel-vba

You could edit this code to work for you:

Please Login or Register  to view this content.