If wsData.Range(\"H1:H\" & lr).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then wsData.Range(\"AR2:AU\" & lr).SpecialCells(xlCellTypeVisible).Copy wsDest.Range(\"AB\" & Rows.Count).End(3)(2).PasteSpecial Paste:=xlPasteValues wsDest.Select End If .AutoFilter Field:=42 .AutoFi...
☞ Copy the text of a particular web page (not this one) to the Clipboard. ☞ Paste into the window of another application. ☞ Wait for the test to run. It usually takes a few minutes. ☞ Paste the results, which will have been copied automatically, back into a reply on this...