copy rows to table on another sheet

I use this vba below to copy information from one sheet to another which works well, but i would like it to look down from row 52 until it meets a blank row. i know its something like

ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell) = True

but i am unsure how to adapt it

Formula:

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim copySheet As Worksheet

Dim pasteSheet As Worksheet



Set copySheet = Worksheets("Consultant Utilisation")

Set pasteSheet = Worksheets("Consultant Trends")



copySheet.Range("d52:y52").copy

pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub