Add Transpose to line of code

[pwill]

Hi can anyone help?

I want to add transpose to the line in red, 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).[COLOR=#ff0000]Copy ToSht.Range("AK20:AL20")[/COLOR]
    
    End If

End Sub

I would like the copy to transpose to AK20:AK21


Any help would be apprieciated

Regards

pwill

 

[onlyadrafter]

Hello,

does this work as expected?

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").PasteSpecial (xlPasteAll), Transpose:=True
    
    End If

End Sub

 

[pwill]

Hello,

does this work as expected?

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").PasteSpecial (xlPasteAll), Transpose:=True
    
    End If

End Sub

Hi onlyadrafter, yes thats works,

thanks for your help, much apprieciated

pwill