Select all cells that currently have data from a starting point “F1”:

Range(“F1”).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select