choose different columns with VBA

Hi all,

With this Code I look into worksheet "DatenSpars". In this worksheet the columns a to m are filled with data.

If in column H is a date from today I need only the columns A, B, C, D, H, F, I from this lines and copy it
into worksheet "StopSuspend".
After that the lines have to be deleted in the worksheet "DatenSpars".

The only think what not work is the following line, where I select the needed cells:

.Range(.Cells(I, "A"), .Cells(I, "D"), .Cells(I, "H"), .Cells(I, "F"), .Cells(I, "I")).Copy Sheets("StopSuspend").Range("A" & Rows.Count).End(3)(2)


Hopefully someone could help?

I don't know what is wrong in this code?

Please Login or Register  to view this content.

Best regards

Thorsten