Sorting + Inserting Values - excel

Question

I have two problems I'm trying to solve.
First, I'm trying to sort by column AP (this column contains a 1 for every row where column AI is not blank).
The code is supposed to sort so that anytime column AP = 1, the rows that have a 1 appear at the bottom.
Unfortunately, this keeps the rows with a 1 in the middle, and doesn't logically order by putting the zeroes at the top and the ones at the bottom.
Sub SortSheet()
Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Range("A2:AP" & lastrow).Sort key1:=Range("AP2:AP" & lastrow), _
order1:=xlDescending, Header:=xlNo
End Sub
Second, when we sort by column AP, I want to insert three blank rows between where the sorted rows change from 0 to 1.
So in other words, if the first 5 rows are 0 and the 6th row is a 1, I want to insert three blank rows above row 6.

Answer 1

Maybe you need to paste column AP as values before sorting (if they are linked to a cell). The code correctly sorted AP for me.
Here's the full code
Sub SortSheet()
Dim lastrow As Long
Dim firstzero As Range
Dim x As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Range("A2:AP" & lastrow).Copy
Range("A2:AP" & lastrow).PasteSpecial Paste:=xlPasteValues
Range("A2:AP" & lastrow).Sort key1:=Range("AP2:AP" & lastrow), _
order1:=xlDescending, Header:=xlNo
Range("AP2:AP" & lastrow).Find(0).Select
For x = 1 To 3
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlUp
Application.CutCopyMode = False
Selection.ClearContents
Next x
End Sub