VBA Error, But Can't Fix It

[SonicBoomGolf]

I am having a problem with the following code.

Public Sub OrderSummary()

botrw = 55
' Inserts a New Column in Column A
With Range("a:a").Select
Selection.Insert shift:=xlToRight
End With
Do
toprw = Range("m" & botrw).End(xlDown).Row
botrw = Range("m" & toprw).End(xlDown).Row
Cells(toprw - 1, 2).Cut
Range(Cells(toprow, 2), Cells(botrw - 2, 2)).Paste
Loop Until botrw = Cells(65536, 2).End(xlUp).Row
End Sub

I get a Run-Time 1004 Error when it comes to this portion of the code:
Range(Cells(toprow, 2), Cells(botrw - 2, 2)).Paste

I don't understand what is wrong with this. Any ideas?

 

[SonicBoomGolf]

The following code is my first stab at doing what I want and it is kinda doing what I want it to. Using my previous post as an illustration, the macro will delete the number 727 in cell B4, but then the blank cell from B5 is moved up to B4, and since the loop moves onto the next cell, the blank cell now in cell B4 remains. Below is my code.

finalrow = Cells(65536, 2).End(xlUp).Row
For i = 2 To finalrow
If Cells(i, 2).NumberFormat = "m/d/yyyy" Then
Else
Rows(i, 2).Delete
End If
Next i

How can I get the code to delete everything that is not in a date format in Column B??

 

[SonicBoomGolf]

Any ideas?