Это должно сработать:
Public Sub selectCells()
Range("F3:BJ3").Select
End Sub
edit: в этом отношении, вы также можете использовать следующее, чтобы фактически выполнить команду 'copy' для вас:
Public Sub selectCellsAndCopy()
Range("F3:BJ3").Select
Selection.Copy
End Sub