Sub test_2()
Dim rng As Range
i = 3
'Range("H" & i + 1 & ":Q" & i + 1 & ",S" & i + 1 & ":AA" & i + 1).Select
'MsgBox Range("H" & i + 1 & ":Q" & i + 1 & ",S" & i + 1 & ":AA" & i + 1).Address(0, 0)
Set rng = Union(Cells(i, "H").Resize(, 10), Cells(i, "S").Resize(, 9)).Offset(1)
MsgBox rng.Address(0, 0)
rng.Select
End Sub