Copy EntireRow within selected range to sheet + print

[chriskay]

Hi all

I am in need of a simple loop VBA that is able to copy the data of the entire row within the selected range one by one to another sheet AS TEXT within the workbook, then print a 3rd sheet that has simple "=" formulas to the 1:1 range in the sheet that the data is pasted into, then continue with the next entire row within the selected range.

For example, if you take a look at the attached examplesheet, the functionality should be something like this:

1. Select range in the sheet called "Maskinspecifikation", e.g. range E6:R10.
2. Copy the entire row of 6:6 to row 1:1 in the sheet called "Forsidedatamatrix" as text (I guess it is important to paste as text, or the lookup formulas will break).
3. PrintOut 3 copies of "Forsidedata".
4. Loop will continue with next row of selection, being 7:7 and also paste it to 1:1.
5. Loop ends when 10:10 has been printed.

I tried making this with macro recording, but ended up with 440 lines of code, which I think could be done much more simple.

Any help will be much appreciated

EDIT: One more important thing to mention of course, is that if selection is outside of the table (Table3 in the workbook), then the code should give a MsgBox and end sub.