Guru do Excel e Power BI

Sub ApagarValor_babdallas()
    Dim Celula      As Range
    Dim lngP1       As Long
    Dim lngP2       As Long
    Dim lngCont     As Long

    With wshTeste
        lngP1 = .Range("AH3").Value2
        lngP2 = .Range("AO3").Value2
        lngCont = 1
        For Each Celula In .Range("AK7:Ak36")
            If lngCont = lngP1 Then Celula.Value2 = vbNullString
            lngCont = lngCont + 1
        Next Celula
        
        lngCont = 1
        For Each Celula In .Range("AL7:AL36")
            If lngCont = lngP2 Then Celula.Value2 = vbNullString
            lngCont = lngCont + 1
        Next Celula
    End With
End Sub