HELP:MACRO FOR PASTING MANY COLUMNS DATA TO 2 COLUMNS ONLY WITH blank space AFTER EVERY PASTE

[sara2009]

please help me i am preparing sales invoices to import, i have vast amount of data to organise.... i am rilllyy desperate for this macro:
my data is in sheet 2 from column C to Column DG, headings(eg SUYE) are in row 2,then numbers start from row 3 to row 30.
i need a macro to paste this data to sheet 1 IN COLUMN M if the heading fits the data. after every paste, there shud be one 1 blank space. numbers under SUYE shud all be pasted in sheet1 from M2 to M29 then 'SUYE' shud be pasted from N2 to N29,(M30 and N30)leave blank, then paste data under ARUSHA in M30 to M58 then M51 left blank, ARUSHA shud appear in N30 TO N58 and leave N51 blank ETC..

col C D E F
[TABLE="width: 256"]
<TBODY>[TR]
[TD]SUYE
[/TD]
[TD]ARUSHA
[/TD]
[TD]AZIMIO
[/TD]
[TD]BARAA
[/TD]
[/TR]
[TR]
[TD]79
[/TD]
[TD]47
[/TD]
[TD]62
[/TD]
[TD]92
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]2
[/TD]
[TD]2
[/TD]
[TD]3
[/TD]
[/TR]
[TR]
[TD]81
[/TD]
[TD]58
[/TD]
[TD]74
[/TD]
[TD]114
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]2
[/TD]
[TD]2
[/TD]
[TD]3
[/TD]
[/TR]
[TR]
[TD]70
[/TD]
[TD]52
[/TD]
[TD]86
[/TD]
[TD]113
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]2
[/TD]
[TD]3
[/TD]
[TD]3
[/TD]
[/TR]
[TR]
[TD]20
[/TD]
[TD]12
[/TD]
[TD]16
[/TD]
[TD]23
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]17
[/TD]
[TD]12
[/TD]
[TD]19
[/TD]
[TD]21
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]18
[/TD]
[TD]13
[/TD]
[TD]22
[/TD]
[TD]29
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]27
[/TD]
[TD]20
[/TD]
[TD]25
[/TD]
[TD]38
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]23
[/TD]
[TD]16
[/TD]
[TD]26
[/TD]
[TD]28
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]23
[/TD]
[TD]17
[/TD]
[TD]14
[/TD]
[TD]23
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]25
[/TD]
[TD]19
[/TD]
[TD]15
[/TD]
[TD]35
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]81
[/TD]
[TD]58
[/TD]
[TD]74
[/TD]
[TD]114
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]2
[/TD]
[TD]2
[/TD]
[TD]3
[/TD]
[/TR]
[TR]
[TD]67
[/TD]
[TD]51
[/TD]
[TD]41
[/TD]
[TD]68
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]2
[/TD]
[TD]2
[/TD]
[TD]2
[/TD]
[/TR]
[TR]
[TD]25
[/TD]
[TD]19
[/TD]
[TD]15
[/TD]
[TD]35
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[TD]1
[/TD]
[/TR]
[TR]
[TD]75
[/TD]
[TD]56
[/TD]
[TD]45
[/TD]
[TD]105
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]2
[/TD]
[TD]2
[/TD]
[TD]3
[/TD]
[/TR]
</TBODY>[/TABLE]


So it apears like this
Col M col N
[TABLE="width: 128"]
<TBODY>[TR]
[TD]79
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]81
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]70
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]20
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]17
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]18
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]27
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]23
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]23
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]25
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]81
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]67
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]25
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]75
[/TD]
[TD]SUYE
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]SUYE
[/TD]
[/TR]
</TBODY>[/TABLE]

 

[rjwebgraphix]

Try this....

Sub colconvert()

Dim rw As Long
Dim cl As Long
Dim NewRW As Long

NewRW = 1
For cl = 3 To 6
    For rw = 2 To 29
        Sheets("Sheet1").Cells(NewRW, "M").Value = Sheets("Sheet2").Cells(rw, cl).Value
        Sheets("Sheet1").Cells(NewRW, "N").Value = Sheets("Sheet2").Cells(1, cl).Value
        NewRW = NewRW + 1
    Next rw
    NewRW = NewRW + 1
Next cl

End Sub

 

[sara2009]

it WORKEDDDD!!!! THANK YOU SOMUCHHH rjwebgraphix!!,,,i reallly really appreciate all ur help...thanks!!!!! life is sooo easy with macros!

Try this....

Sub colconvert()

Dim rw As Long
Dim cl As Long
Dim NewRW As Long

NewRW = 1
For cl = 3 To 6
    For rw = 2 To 29
        Sheets("Sheet1").Cells(NewRW, "M").Value = Sheets("Sheet2").Cells(rw, cl).Value
        Sheets("Sheet1").Cells(NewRW, "N").Value = Sheets("Sheet2").Cells(1, cl).Value
        NewRW = NewRW + 1
    Next rw
    NewRW = NewRW + 1
Next cl

End Sub