[COLOR="Navy"]Sub[/COLOR] MG15Apr25
[COLOR="Navy"]Dim[/COLOR] Rng1 [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Rng2 [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
c = 1
[COLOR="Navy"]Set[/COLOR] Rng1 = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]Set[/COLOR] Rng2 = Range(Range("B2"), Range("B" & Rows.Count).End(xlUp))
Range("D1").Resize(Rng1.Count) = Rng1.Value
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng2
[COLOR="Navy"]With[/COLOR] Range("E" & c)
.Resize(Rng1.Count) = Dn
.Offset(, 1).Resize(Rng1.Count) = Rng1.Value
[COLOR="Navy"]End[/COLOR] With
c = c + Rng1.Count
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]