Private Declare PtrSafe Function OpenClipboard Lib "USER32" (Optional ByVal hwnd As Long = 0) As Long Private Declare PtrSafe Function CloseClipboard Lib "USER32" () As Long Private Declare PtrSafe Function EmptyClipboard Lib "USER32" () A…

Sub Create() Dim DataRange As Range Dim DataArr As Variant, Row As Variant Dim StartTime As Date, EndTime As Date Dim Cumulative As Double Set DataRange = Worksheets("form").Cells(5, 9).CurrentRegion IsErr = CheckData(DataRange) If IsErr =…