help please ASAP type mismatch error

[noup1000]

[VBA]Sub C_how_many_to_insert()
Sheets("Copied sorted values").Select
Range("B2").Select
Do Until ActiveCell.Offset(1, 0).Value = "x"

ms1 = ActiveCell.Offset(0, 1)
ms2 = ActiveCell.Offset(1, 1)

If ms2 - ms1 > 1 Then
ActiveCell.Value = (ms2 - ms1) - 1
ActiveCell.Offset(1, 0).Select
Else: ActiveCell.Offset(1, 0).Select
End If
Loop

Range("B2").Select
Do Until ActiveCell.Value = "x"
p1 = ActiveCell.Offset(0, 2)
p2 = ActiveCell.Offset(1, 2)

If p1 <> p2 Then
ActiveCell = 13 - ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

Range("D2").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(-1, -3).Select
Do
p1 = ActiveCell.Offset(0, 3)
p2 = ActiveCell.Offset(-1, 3)
m1 = ActiveCell.Offset(0, 2)
If p1 <> p2 And m1 <> 1 Then
ActiveCell = (m1 - 1)
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(-1, 0).Select
End If
Loop Until (ActiveCell.Address = "$A$1")

Cells.Select
Cells.EntireColumn.AutoFit

Range("A2").Select
End Sub[/VBA]


Error on ActiveCell = (m1-1), would you please help..what is seems to be the problem? I appreciate you guys help on this

[GTO]

Please attach a workbook with some example data. We don't know what ms1, ms2, ect are holding as values.

[SamT]

Range(M1).Value is not a number

This is your code copied from above, inserted inside VBA tags using the green VBA button at the top of the post editor.
[VBA]Sub C_how_many_to_insert()
Sheets("Copied sorted values").Select
Range("B2").Select
Do Until ActiveCell.Offset(1, 0).Value = "x"

ms1 = ActiveCell.Offset(0, 1)
ms2 = ActiveCell.Offset(1, 1)

If ms2 - ms1 > 1 Then
ActiveCell.Value = (ms2 - ms1) - 1
ActiveCell.Offset(1, 0).Select
Else: ActiveCell.Offset(1, 0).Select
End If
Loop

Range("B2").Select
Do Until ActiveCell.Value = "x"
p1 = ActiveCell.Offset(0, 2)
p2 = ActiveCell.Offset(1, 2)

If p1 <> p2 Then
ActiveCell = 13 - ActiveCell.Offset(0, 1)
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

Range("D2").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(-1, -3).Select
Do
p1 = ActiveCell.Offset(0, 3)
p2 = ActiveCell.Offset(-1, 3)
m1 = ActiveCell.Offset(0, 2)
If p1 <> p2 And m1 <> 1 Then
ActiveCell = (m1 - 1)
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(-1, 0).Select
End If
Loop Until (ActiveCell.Address = "$A$1")

Cells.Select
Cells.EntireColumn.AutoFit

Range("A2").Select
End Sub[/VBA]

[SamT]

The final column selection is into the bottom of Column A, which cell has the value "x", soi the first assignment of m1 is "x", not a number.
[VBA]Range("D2").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(-1, -3).Select 'Selects Col "A". Last Row[/VBA]

Try changing that bit of code to
[VBA]ActiveCell.Offset(-1, -1).Select[/VBA]