Hi, gameybeets,

With Worksheets("Sheet2")
  .Range(.Range("B1").Offset(0, 4), .Range("B1").Offset(0, 16)).Select
End With
Ciao,
Holger