CommandButton help

[LostinVA]

Hi everyone. I'm a complete noob so appreciate any help you all can provide. I'm trying to edit the below code so that when a CommandButton is clicked, it allows me to copy row data from a different tab "QRR Template" and paste/transpose the data on the tab where the button is located. I'd like the data to begin pasting on cell B7.


Private Sub CommandButton1_Click()
Sheets("QRR Template").Range("B6:AK1000").Copy
Range("B" & Columns.Count).End(xlUp).Offset(1).PasteSpecial Transpose:=True
End Sub

The above is copying and pasting/transposing the data, but it's not beginning the paste on B7 and there are wonky #REF ! and other values being pasted beginning in Column AQ.

Appreciate any help you all can provide!

 

[alansidman]

Try this:

Option Explicit


Private Sub CommandButton1_Click()
Sheets("QRR Template").Range("B6:AK1000").Copy
If ActiveSheet.Range("B7") = "" Then
ActiveSheet.Range("B7").PasteSpecial Transpose:=True
Else:
ActiveSheet.Range("B" & Columns.Count).End(xlUp).Offset(1).PasteSpecial Transpose:=True
End If
End Sub

 

[LostinVA]

This worked perfectly, thank you SO much!! I really appreciate your help.