Find next empty cell for the end cell of a range for excel vba

I want to select a range from A2 to the next blank cell in column F to copy. I am using this to paste the values to the cell instead of the formula in column A and B. The select I am using now is:

Range(Cells(2, 1), Cells(Rows.Count, 6).End(xlUp).Row).Select