Hey guys so I asked a question on StackOverFlow and I got an answer to my question but then I found out the program is crashing because I have 250k data points on my excel sheet so I was wondering what I can do to make it so it wont crash. I was guided here to ask you guys so Im hoping I can understand what I can do to improve the code.

my thread on stackoverflow: https://stackoverflow.com/questions/47999466/how-to-split-date-and-time/47999581?noredirect=1#comment82997344_47999581

Sub CompareTime()  Dim ws As Worksheet  Dim lastRow As Long Dim Count As Long Dim test As Double  Set ws = ActiveSheet   'Find last data point With ws     .Columns(2).Insert     lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row      For Count = 5 To lastRow         'split date         test = .Cells(Count, 1).Value2         .Cells(Count, 1).Value2 = Int(test)         .Cells(Count, 1).NumberFormat = "m/d/yyyy"         .Cells(Count, 1).Offset(0, 1).Value2 = test - Int(test)         .Cells(Count, 1).Offset(0, 1).NumberFormat = "hh:mm AM/PM"      Next Count End With   End Sub