lrow should be iRow on this line (the below has been changed, replace the similar line in the code)
iRow = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
lrow should be iRow on this line (the below has been changed, replace the similar line in the code)
iRow = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
If you have posted the same question at multiple forums, please read this IMPORTANT INFO.
Please use the thread tools to mark your thread Solved
Please review the Knowledge Base
for samples and solutions , or to submit your own!
Posting Permissions
Reply With Quote