Copy and Paste only filled cells from a dynamic range to another sheet in empty cells

Try:

Sub CopyRange()
    Application.ScreenUpdating = False
    Dim bottomA As Long
    bottomA = Sheets("DealTemplate").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("DealTemplate").Range("Y5:Z" & bottomA).Copy
    Sheets("DealList").Range("B33").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub