Transferring Data between sheets to main record sheet.

[plasteredric]

I've attached a sample sheet of what i'm working on. I have a daily working sheet and a 'complete' record sheet. Can anyone help me with some vba code to take all the data from the working sheet and place it at the bottom of the 'complete' record sheet?

Cheers

21754

[mana]

Option Explicit


Sub test()
Dim rngS As Range
Dim rngD As Range

Set rngS = Sheets("Temp").Range("B5").CurrentRegion
Set rngS = Intersect(rngS, rngS.Offset(1))
Set rngD = Sheets("Complete").Range("B" & Rows.Count).End(xlUp).Offset(1)

rngS.Copy
rngD.PasteSpecial xlPasteValues
Application.CutCopyMode = False

End Sub

[plasteredric]

Thanks, that works well. Is there a way of getting round blank rows? it seems to stop at the first blank row it finds


Option Explicit


Sub test()
Dim rngS As Range
Dim rngD As Range

Set rngS = Sheets("Temp").Range("B5").CurrentRegion
Set rngS = Intersect(rngS, rngS.Offset(1))
Set rngD = Sheets("Complete").Range("B" & Rows.Count).End(xlUp).Offset(1)

rngS.Copy
rngD.PasteSpecial xlPasteValues
Application.CutCopyMode = False

End Sub