VBA adicionando uma linha em branco na coluna D quando os valores mudam, apenas em células visíveis

Question

Eu quero que meu código do VBA insira duas linhas em branco sempre que o valor da célula na coluna d for alterado. E como eu usei alguns filtros automáticos, só quero que ele faça essa função em células visíveis.

Eu tenho isso:

Dim GCell As Range

SearchText = ""
Set GCell = Cells.Find(SearchText).Offset(0)
GCell.EntireRow.Insert
GCell.EntireRow.Insert

Mas isso só funciona se você colocar em um determinado texto que você deseja pesquisar. Mas aqui eu não tenho nada específico para procurar. São apenas números

    

Answer 1

Se você quiser inserir as linhas abaixo do valor alterado, independentemente do que foi alterado, poderá usar algo assim:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
    If Target.Worksheet.Rows(Target.Row).EntireRow.Hidden = False Then
        Target.Offset(1, 0).EntireRow.Insert
        Target.Offset(1, 0).EntireRow.Insert
    End If
End If

End Sub

Esteja ciente de que esse código deve ser colocado na página de código da planilha que você deseja que ele afete.