What I’m trying to do here is to auto filter everything and then filter column 4 for “20”
Copy the filtered area to a “TR 53 Div” sheet and delete it from original “TR 53 Other” sheet.
Next step is to do similar thing by filtering for “50” and copying it, but my problem is pasting it to a “TR 53 Div” sheet that already contains info for “20” and what I need to do is to find the next blank row in “TR 53 Div” sheet and paste “50”.

So, the bottom line is that I need a formula that will find the next blank row in “TR 53 Div” sheet so that I’m able to paste the next thing.

Selection.AutoFilter Field:=4, Criteria1:="20"
    Rows("110:112").Select
    Selection.Copy
    Sheets("TR 53 Div").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("TR 53 Other").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("D1").Select
    Selection.AutoFilter Field:=4, Criteria1:="50"
    Rows("217:238").Select
    Selection.Copy
    Sheets("TR 53 Div").Select
    Range("A5").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("TR 53 Other").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("D1").Select