Hello, I have a code that finds a specific word and delete 3 rows above it(therefore removing blank cells between two similar ranges.) I would like to be able to select the current region and resort. Here is what I have come up with so far. This removes my columns for me but I can't figure out the rest.
Sub Delete_Rows() Range("A" & Rows.Count).End(xlUp).Select Const WordToLook = "NYC" Dim RowWord As Long RowWord = Columns(4).Find(WordToLook, LookAt:=xlWhole).Row Rows(RowWord - 3 & ":" & RowWord - 1).Delete End Sub