Paste on to next blank line not working

[Haze1434]

Please Login or Register  to view this content.

This code isn't working, and I can't figure out why.

It works fine the first time around, but then it replaces the same row from then on, rather than going to the next line.

Please Login or Register  to view this content.

Doesn't work either.

[AB33]

Please Login or Register  to view this content.

is correct

Please Login or Register  to view this content.

[Haze1434]

Thank you for your prompt reply.

Please Login or Register  to view this content.

This doesn't work, it still replaces the same line over and over.

Please Login or Register  to view this content.

Gives a debug error as the line "Sheets("strSheet").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues" has nothing to refer to... the sheet that the information needs to be pasted on to is referenced in cell B6 and the code needs to reflect this. Unsure how to get this to happen with the given script.

[AB33]

I thought you have a sheet called strSheet

Please Login or Register  to view this content.

[AB33]

If the sheet is not created.

Please Login or Register  to view this content.