hi,
this is working ok but very slow to do work, need help to improve speed of this code

thank you

Sub COPY_DITTO_FINAL()
Application.ScreenUpdating = False
If ActiveSheet.Name = "OL BC" Then
Dim NextRow As Range
Set NextRow = Sheet5.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheet5.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(0, 0).EntireRow.Copy
NextRow.PasteSpecial ' (xlValues)
Sheet5.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(0, 6).Value = 1
Range("H10").End(xlDown).Offset(0, 0).Select
Else: End If
Application.ScreenUpdating = True
End Sub