Send to different cell

[Vokes7791]

Hi

I have the below code, the macro enable the 'cursor' to return to D$ but would like the code to also send the 'cursor' to Sheet1 cell B7 if B6 has text in. Is this possible?


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