Private Sub CommandButton3_Click()
Dim FileN$
FileN = "C:\Users\user\Documents\HIDROMEK\SRM\Maintenance Form\" & Format(Now, "DD.MM.YYYY") & " " & Format(Time, "HH-MM-SS") & ".xls"
ThisWorkbook.Sheets("Sheet 1").Copy
ActiveWorkbook.SaveCopyAs FileN
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
ActiveWorkbook.Close SaveChanges:=False
MsgBox "Maintenance Form сохранена в новой книге " & FileN
End Sub

Private Sub CommandButton3_Click()
Dim FileN$
FileN = "C:\Users\user\Documents\" & Format(Now, "DD.MM.YYYY") & " " & Format(Time, "HH-MM-SS") & ".xls"
ThisWorkbook.Sheets("Sheet 1").Copy
ActiveWorkbook.SaveCopyAs FileN
ActiveWorkbook.Close SaveChanges:=False
MsgBox "Maintenance Form сохранена в новой книге " & FileN
End Sub

Sub test(a$, b As Range)
Set r = Sheets("tables").UsedRange
b.ClearContents
For i = 1 To r.Rows.Count
If r.Rows(i).MergeCells Then
b = r.Cells(i + 1, 1).Resize(4, 4).Value
Exit For
End If
Next
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case [b5].Address: Call test(Sheets("Данные").[b5], Sheets("форма").[a4..d7])
End Select
End Sub

Sub test(a$, b$, c As Range)
Set r = Sheets("tables").UsedRange
c.ClearContents
For i = 1 To r.Rows.Count
If r.Rows(i).MergeCells Then

c = r.Cells(i + 1, 1).Resize(4, 4).Value
Exit For

End If
Next
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case [b5].Address: Call test(Sheets("Данные").[b5], Sheets("Данные").[b5], Sheets("форма").[a4..d7])
Case [a1].Address: Call test(Sheets("Данные").[b5], Sheets("Данные").[a1], Sheets("форма").[a4..d7])
End Select
End Sub