Combining 2 codes?

Is there a way to combine these two codes so one runs right after the other?

Sub RemoveDupe()
Dim ws As Worksheet
Dim rCell As Range
Dim rRange As Range
Dim lCount As Long
For Each ws In Worksheets

Set rRange = ws.Range("B1", ws.Cells(ws.Rows.Count, "B").End(xlUp))
lCount = rRange.Rows.Count

For lCount = lCount To 1 Step -1
With rRange.Cells(lCount, 1)
If WorksheetFunction.CountIf(rRange, .Value) > 1 Then
.EntireRow.Delete
End If
End With
Next lCount
Next ws
End Sub

And

Sub DeleteRowWithContents()

 Dim ws As Worksheet
   For Each ws In Worksheets
      With ws
          Last = .Cells(Rows.Count, "D").End(xlUp).Row
          For i = Last To 2 Step -1
             If (.Cells(i, "D").Value) <> "01" Then

             .Cells(i, "A").EntireRow.Delete
             End If
          Next i
      End With
   Next ws
 End Sub