Add Transpose to line of code

Hi can anyone help?

I want to add transpose to the Copy ToSht.Range, is there a way to do this?

Private Sub CommandButton3_Click()

    Set FromSht = Sheets("Sheet1")
    Set ToSht = Sheets("Sheet2")
    
    r = 2
    
    While FromSht.Cells(r, "A") <> "" And FromSht.Cells(r, "C") <> ""
        
    r = r + 1
    
    Wend
    
    If FromSht.Cells(r, "A") <> "" Then
        
    FromSht.Cells(r, "C") = 1
        
    FromSht.Range("A" & r & ":B" & r).Copy ToSht.Range("AK20:AL20")
    
    End If

End Sub

I would like the copy to transpose to AK20:AK21


Any help would be apprieciated

Regards

pwill32