Exclude certain columns from being copied

I'm using this code to copy data to a new worksheet.

Is it possible to exclude certain columns, say the 15th column?

For Each r In rngDb
   rngOut.Offset(i).Value = r.Resize(, 24).Value
   i = i + 1     
Next r

Select allOpen in new window