Hallo Michael,
habe leider etwas übersehen aber das kannst Du warscheinlich selbst ändern:
Dx.Offset(Col, 1).Value = Mx.Offset(Dx.Row - 1, 0).Value ändern in
Dx.Offset(Col, 1).Value = Mx.Offset(Nx.Row - 1, 0).Value
also nur das Dx in Nx ändern dann müsste es klappen.
Gruß Armin