Guru do Excel e Power BI

Bom dia

Estou com uma dificuldade de um site para lançar as informações em uma caixa de texto do site já tentei de todas as formas mais ele não preencher se não foi digitando ou selecionando e colando poderiam de dar um help?

Sub Emissao_Alvara()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
sURL = "http://www.sefaz.salvador.ba.gov.br/Alv ... #gsc.tab=0"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.Navigate sURL
oBrowser.Visible = True

Do
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.Document

HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_txtNuCnpj.Value = Range("B1")
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_txtNuCGA.Value = Range("D1")
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_txtNuCpfRepresentante.Value = Range("D1")
HTMLDoc.all.ctl00_ContentPlaceHolderPrincipal_BtnConsultar0.Click

End Sub

Você não esta conseguindo porque os elementos estao num IFrame bloqueado para acesso, se nao estivesse bloqueado bastava fazer isso: Tente fazer a rotina na página abaixo, é pra onde o IFrame bloqueado direciona.