Stop all macro's

Rick

Carim's suggested implemented into macro from your previous thread.

Sub OnTimeCopyData()
   Dim lNextRow As Long
   
   If Range("A1").Value = Range("A2").Value Then
      End
   End If
   lNextRow = Cells(Rows.Count, "a").End(xlUp).Row + 1
   If lNextRow > Rows.Count Then
      MsgBox "Sheet Full - Cannot continue"
      End
   End If
   Range("a" & lNextRow & ":c" & lNextRow).Value = Range("a1:c1").Value
   Application.OnTime Now() + TimeValue("00:00:02"), "OnTimeCopyData"
End Sub