VBAで縦を横にコピー

Sub 横縦転記()
  
  Range("B2:H2").Copy
  Range("A5").PasteSpecial Transpose:=True
  
  Range("B3:H3").Copy
  Range("B5").PasteSpecial Transpose:=True
  
  Application.CutCopyMode = True
End Sub