VBA: Selecting only rows with data in a range

[forrad]

Hello all,

I am working on a spreadsheet, in which I have written a macro whereby it selects and cuts data within a defined range (in this case "K1:T1001") and pastes this to the first empty row in column A. Here is the specific line used in this macro:

If Not IsEmpty(MyCell) Then
ActiveSheet.Range("K1:T1001").Cut Destination:=ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(2)
End If

I would like to use this macro for other similar spreadsheets where the range of rows to be selected may differ (however, the columns will always be K:T). I'm afraid I have reached my limit of knowledge with VBA to know how to select only cells containing data within this range.

Any help would be greatly appreciated!

 

[stefankemp]

Do While Application.WorksheetFunction.CountA(Range("K:T")) > 0
    LastRow = Cells(Rows.Count, "R").End(x1Up).Row 
    ActiveSheet.Range("K1:T"&LastRow).Cut Destination:=ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(2)
    Range("K:T").EntireColumn.Delete
Loop