You could always clean up after you did the pasting.

If you were doing it by hand, you could select the pasted range and then
edit|goto|special|blanks
edit|delete|shift to the left

In code:

Option Explicit
Sub testme()

   Dim RngToCopy As Range
   Dim DestCell As Range
   
   With ActiveSheet
       Set RngToCopy = .Range("a1:b7")
       Set DestCell = .Range("C9")
   End With
   
   RngToCopy.Copy
   DestCell.PasteSpecial Transpose:=True
       
   'just in case there are no empty cells
   On Error Resume Next
   DestCell.Resize(RngToCopy.Columns.Count, ngToCopy.Rows.Count) _
       .Cells.SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
   On Error GoTo 0
   
   
End Sub