Ajuda Urgente - Range em Macro

Prezados, preciso muito da ajuda de voces.

Tenho o seguinte código:

Sheets("BI").Range("tbBaseIn[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range( _
"A18:H30000"), Unique:=False

Sheets("BO").Range("tbBaseOut[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A18:H30000"), Unique:=True

Pra cada atualização em uma determinada célula (a1, a2) ele vai na tabela BI e copia os dados que estão la e cola na minha tabela atual. Isso quando o cabeçalho é igual ao que tá lá (range = a18). Perfeito.
Porém tenho a seguinte dificuldade, preciso que ao terminar de copiar os dados da sheet BI ele vá para a ultima linha preenchida na coluna A e faça o mesmo para a sheet Bo. É aí que aparece meus problemas:

1 - Preciso que para a Sheet BO ao inves de definir A18 a H30000 ele pegue a coluna A , ultima linha.
2 - Outra dificuldade. Meu cabeçalho está na A18. Sendo assim para a sheet BO, ele deveria trazer o que está na tbBaseOut para a minha tabela atual levando em consideração o que está na A18 porém copiando para a linha atual.

Alguem para ajudar?
Abs,

Boa tarde!!

Usar título com "urgente" não é coerente!!! 

Poste seu arquivo em site gratuito como sendspace ou outros e nos mande o link!!

Att

Meu caro, obrigado pela resposta.

Urgente é porque realmente é urgente. Estou há vários dias trabalhando na função e tenho deadline para concluir o trabalho que é extremamente curto.

O código está assim

Sheets("BI").Range("tbBaseIn[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A18:H30000"), Unique:=False
LRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

Sheets("BO").Range("tbBaseOut[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A" & LRow & ":H30000"), Unique:=True

O problema é que só me traz o conteudo da sheet BI. Da sheet BO nao traz porque a ultima linha LROW nao contem o cabeçalho da sheet A18. Este é o problema. Ele deveria verificar se o cabeçalho da sheet b0 é igual ao cabeçalhado da sheet atual que estou mexendo e ai ir pra ultima linha e copiar la o conteudo. Ele faz diferente, ele vai na ultima linha e busca o cabeçalho como no caso da A18 mais la nao vai encontrar.

Abs,