VBA for merging tables

[czvrnvv]

Hi, I would like to ask for some help with Excel. Im not into VBA and i have to merge 2 big tables (150X500) in a way i presented in picture below>>

Is there any easy VBA code to do it or another option how to get there?

 

[MickG]

Assuming your data is all on one sheet, then try this for results on sheet2.
The code assumes 500 rows x 150 columns.

[COLOR="Navy"]Sub[/COLOR] MG20Dec30
[COLOR="Navy"]Dim[/COLOR] Ray1 [COLOR="Navy"]As[/COLOR] Variant, Ray2 [COLOR="Navy"]As[/COLOR] Variant, Dup [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Ray1 = Range("A1").Resize(500, 150) '[COLOR="Green"][B]Change these Data ranges to suit[/B][/COLOR]
Ray2 = Range("EU1").Resize(500, 150) '[COLOR="Green"][B]Change these Data ranges to suit[/B][/COLOR]
ReDim nray(1 To UBound(Ray1, 1) + UBound(Ray2, 1), 1 To UBound(Ray1, 2))
[COLOR="Navy"]For[/COLOR] n = 1 To UBound(Ray1, 1)
    [COLOR="Navy"]For[/COLOR] Dup = 1 To 2
        c = c + 1
        [COLOR="Navy"]For[/COLOR] Ac = 1 To UBound(Ray1, 2)
            [COLOR="Navy"]If[/COLOR] Dup = 1 [COLOR="Navy"]Then[/COLOR]
                nray(c, Ac) = Ray1(n, Ac)
            [COLOR="Navy"]Else[/COLOR]
                nray(c, Ac) = Ray2(n, Ac)
            [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]Next[/COLOR] Ac
    [COLOR="Navy"]Next[/COLOR] Dup
[COLOR="Navy"]Next[/COLOR] n
Sheets("Sheet2").Range("A1").Resize(c, 150).Value = nray
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[czvrnvv]

It's work! You are amazing, thanks alot

 

[MickG]

You're welcome