With ws_stsked
dt_row = Application.WorksheetFunction.Match(CLng(Date), .Columns(1), 0)
elim = Application.WorksheetFunction.VLookup(FullName, ws_rstr.Range("E:H"), 4, False)
rplc = str4
Set rng_scour = .Range("B" & dt_row & ":HA375")
With rng_scour
With .Cells...