Norie,
Sorry, I don't understand your suggestion as it pertains to this issue.
Maybe COUNTIF will work, but it seems to break rank w/ how the rest of my code is structured.
I can locate the correct amount of rows if I move my variable line after the last line of SpecialCells. Copy, Highlighted in Red for an easy read. This works because now the code has something it can count on the target worksheet.
But this in my opinion is a hack method.
My problem w/ this is that it fixes something that should be handled initially, not on the rebound. Since WsS2, the source worksheet where the visible cells are located, it seems that there should be an easy way to count the visible cells on the Source Sheet and obtain count value at that point.
It is a matter of trying to write this as smoothly as possible, my method here shows a lack of style and agility.... trying to improve upon this.
Set WsS = Workbooks("MasterImportSheetWebStore.xls").Sheets("TGFF")
Set WsS2 = Workbooks("MasterImportSheetWebStore.xls").Sheets("PCCombined_FF")
Set WsT = Workbooks("MaintImport.xls").Sheets("Record Creator")
lLrwS = WsS.Cells(Rows.Count, "A").End(xlUp).Row
'lLrwT = WsS2.Cells(Rows.Count, "A").End(xlUp).Row
lLrwT = WsS2.Columns(1).SpecialCells(xlCellTypeVisible).Cells(Rows.Count, "A").End(xlUp).Row
'lLrwT = WsS2.Cells.SpecialCells(xlCellTypeVisible).Cells(Rows.Count, "A").Row
WsS2.Range("B2").Resize(lLrwS - 1).SpecialCells(xlCellTypeVisible).Copy WsT.Cells(6, "W") 'Record# Cols. B2>>W6
WsS2.Range("E2").Resize(lLrwS - 1).SpecialCells(xlCellTypeVisible).Copy WsT.Cells(6, "AC") 'Qty. Cols. E2>>AC6
WsS2.Range("F2").Resize(lLrwS - 1).SpecialCells(xlCellTypeVisible).Copy WsT.Cells(6, "AD") 'Dept. Cols. F2>>AD6
WsS2.Range("G2").Resize(lLrwS - 1).SpecialCells(xlCellTypeVisible).Copy WsT.Cells(6, "AE") 'Cat. Cols. G2>>AE6
WsS2.Range("H2").Resize(lLrwS - 1).SpecialCells(xlCellTypeVisible).Copy WsT.Cells(6, "AA") 'Price Cols. H2>>AA6
lLrwT = WsT.Cells(Rows.Count, "W").End(xlUp).Row