to copy paste the entire row to the new sheet

Sub tgr()
    
    Cells(Rows.Count, "B").End(xlUp).EntireRow.Copy Destination:=Sheets("MasterSheet").Cells(Rows.Count, "A").End(xlUp).Offset(1)
    
End Sub

here i want that while coping the row from any sheet to the "MasterSheet" it should copy the cell( D1) text as well to be placed at the column A of "MasterSheet".


thanks.but help me asap.