Is it possible to write the following code in a single line of code?

Sheets("Hoja1").Range("C24:D24").Copy Destination:=Sheets("Hoja2").Range("AD10")
Sheets("Hoja1").Range("C24:D24").Copy Destination:=Sheets("Hoja2").Range("B93")
Thanks