To show blank record when no data while copying

Hello,

I have three sheets sheet1(Active) ,Sheet 2(Inactive) and Sheet3(Total).

I have written code which would copy data from Active sheet ,then data from Inactive sheet and paste it in Total Sheet.

Now it is working fine when Active and Inactive sheet is having data but when it is not having data it is simply displaying the header.

Can anybody help me in tweaking my code to show blank (no header ) when there is no data .

Sub Macro1()
'
' Macro1 Macro
'
Worksheets("Active").Range(Worksheets("Active").Cells(4, 2), Worksheets("Active").Cells(Worksheets("Active").Cells(Worksheets("Active").Rows.Count, "B").End(xlUp).Row, 13)).Copy _
    Destination:=Worksheets("Total Position").Cells(Worksheets("Total Position").Cells(Worksheets("Total Position").Rows.Count, "A").End(xlUp).Row + 1, 1)
Worksheets("Inactive").Range(Worksheets("Inactive").Cells(4, 2), Worksheets("Inactive").Cells(Worksheets("Inactive").Cells(Worksheets("Inactive").Rows.Count, "B").End(xlUp).Row, 13)).Copy _
    Destination:=Worksheets("Total Position").Cells(Worksheets("Total Position").Cells(Worksheets("Total Position").Rows.Count, "B").End(xlUp).Row + 1, 1)
    Sheets("Active").Visible = False
    Sheets("Inactive").Visible = False
    
'
End Sub