sadece seçili sütunlar mı olacak yoksa B:Q  sütunlarının hepsi mi?
eğer hepsi ise aşağıdaki kod işinize yarayabilir

Dim SeciliRng As String

Dim SonHcr, SonHcr2 As Long

SonHcr = 0



For x = 2 To 17 'B:2. sütun, Q:17. sütun

SonHcr2 = Cells(Rows.Count, x).End(xlUp).Row

If SonHcr < SonHcr2 Then SonHcr = SonHcr2

Next x

SeciliRng = "B2:Q" & SonHcr 'Mid(SeciliRng, 2)

Range(SeciliRng).Copy

'Range(SeciliRng).Select