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

sample.xlsx

[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