Copy cells to new Sheet and Save Sheet

[DadaaP]

So I want my command to copy Cells starting in (50,2) to the new sheet starting in (4,1). Here is what I have however it errors, I am trying to save only Sheet0 and not the entire workbook. I googled the problem and this is what others say to do to save just a single sheet.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[AB33]

This code will not save the new sheet, but it creates it.

Please Login or Register  to view this content.

[ragulduy]

Use Pastespecial not paste:

Please Login or Register  to view this content.

I'd probably not copy them individually either, something like this should do the same thing:

Please Login or Register  to view this content.

[DadaaP]

I already have the sheet created in my excel workbook. I just need it to populate the sheet with the loop as posted earlier. However right now its erroring on object, on line ActiveSheet.Cells(PasteCell,1).Paste