Hi all,
Was hoping someone could help, I have written the below:
Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
branchCol = .Range("1:1").Find(What:="Property_Branch", LookAt:=xlPart).Column
Set dltRange = Range(Cells(Lastrow, branchCol), Cells(2, branchCol))
'delete...