Command button logic

[Vokes7791]

Stuck again!
How do I go about repeating the below with range ("D5") to destination ("C6") as well as keeping the below.
Private Sub CommandButton1_Click()
With Range("d4")
.Copy Destination:=Sheets("Sheet1").Range("b6")
.ClearContents
End With
End Sub​

 

[Andrew Poulsom]

Do you mean?

Private Sub CommandButton1_Click()
    With Range("D4:C6")
        .Copy Destination:=Sheets("Sheet1").Range("B6")
        .ClearContents
    End With
End Sub

 

[Vokes7791]

thanks for your reply.
What i'm trying to do is send a vertical list ie. Last name (A1) first name (A2) Company (A3) into an horizontal list last name (A1) first name (B1) company (C1) on another sheet (Sheet2). The Code i posted works to tranfer (A1) on sheet1 to A1 on Sheet2, but I would also like to move to other information the same way. I was tryin elseif code but that was a non starter.

 

[Andrew Poulsom]

Sorry, I misunderstood. Try Paste Special|Transpose:

Private Sub CommandButton1_Click()
    With Range("D4:D5")
        .Copy
        Sheets("Sheet1").Range("B6").PasteSpecial Paste:=xlPasteAll, Transpose:=True
        .ClearContents
    End With
End Sub

 

[Vokes7791]

Many Thanks Andrew, that worked a treat!