Sub xXx()
Application.ScreenUpdating = False
ActiveSheet.Rows(ActiveCell.Row).Columns("B:U").Copy
Sheets("Goods out").Select
Sheets("Goods out").Range("D65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Rows(ActiveCell.Row).Columns("B:U").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
If Cells(Selection.Row, 18).Value > 0 Then
ActiveSheet.Rows(ActiveCell.Row).Columns("B:U").Select
Selection.Copy
Worksheets("Data Base").Activate
ActiveCell.Previous.Columns("B").Select
ActiveSheet.Rows(ActiveCell.Row).Columns("B:U").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
If Cells(Selection.Row, 18).Value = 0 Then
Worksheets("Data Base").Activate
ActiveCell.Previous.Columns("B").Select
For Each Cell In Selection
If Cell.Column >= 2 And Cell.Column < 18 Then
Cell.Value = ""
End If
Next Cell
End If
Application.CutCopyMode = False 'Stop the copy function
Application.ScreenUpdating = True 'Stop blocking the view
End Sub