Vba para inserir dados em determinada coluna visivel

[Manoel Bastos]

Bom dia! Galera criei uma macro pra que oculta determinada colunas:

Sub botão_1()
Dim strCol As String
Dim ws As Worksheet

strCol = "F:J"

Mostrar_Somente_Colunas strCol

End Sub

 porém preciso criar uma outra macro que insira por exemplo o valor 1 na célula "G19" quando a célula estiver visivel, pois se a coluna G não estiver visivel, ela faça uma procura e verifique qual das colunas que eu determinei está visivel e insira o dado nessa coluna, as colunas variam nessa G, L. Q, V....  Consegui fazer parte disso em outra planilha que não há a necessidade de ocultar as colunas e nem de alterar os campos:

 

Application.ScreenUpdating = False
    Dim LastRow As Object
    Set LastRow = Plan43.Range("B4003").End(xlUp)
    
LastRow.Offset(1, 1).Value = Plan23.Range("G39")

 

É possivel realizar essa macro atendendo a esses requisitos?

 

Desde Já agradeço!