:-P

Ok, as I said bevor, I´m a greenhorn.
The copy paste code it´s a bulk of waste

Now I´ve updated it.
WS2.Cells(iTab2Row, rTab2.Column).Resize(, 5) = WS1.Cells(ROW, 1).Resize(, 5).Value
Data is copied to the destinaiton sheet, but only one row
Loops are also a red rag