ActiveWorkbook.Save [color=green]'Получение последней версии файла[/color]
r = r_last +  1  [color=green]' r_last - выясняет последнюю заполненную строку[/color]

Rows(r -  1 ).Select
Selection.Copy
Rows(r).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Range("A" & r) = UserForm1.Data
Range("h" & r) = UserForm1.Mer
Range("i" & r) = UserForm1.Prim
Range("j" & r) = UserForm1.Peredan
Range("M" & r) = UserForm1.OD
Range("N" & r) = UserForm1.Finish
Range("O" & r) = Application.UserName

ActiveWorkbook.Save [color=green]'Обновление данных[/color]