VBA如何将多行不连续数据转置粘贴

请问有办法将下列操作一步完成么
Excel提示行列转置粘贴无法适用于不连续范围.

Option Explicit
Sub copppy()
Dim rowsnum As Long

rowsnum = Selection.Row

Range("B5:W5, B" & rowsnum & ":W" & rowsnum).Select

Selection.Copy

Range("A15").Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub