Problema de digitação, arrume :

Activelcell.Offset(0, x).Select

ActiveCell.Offset(0, x).Select ' sem o "l"

Deverá tambem gerar erro a segunda linha:
Selection.End(xlToRight).Select --> Posiciona o cursor/seletor na ultima coluna da linha ativa range(XFD3") por exemplo.
ActiveCell.Offset(0, 1).Select --> Ao tentar mudar para a próxima coluna, que não existe, pois já está na ultima

Deverá tambem gerar erro a segunda linha:
Selection.End(xlToRight).Select --> Posiciona o cursor/seletor na ultima coluna da linha ativa range(XFD3") por exemplo.
ActiveCell.Offset(0, 1).Select --> Ao tentar mudar para a próxima coluna, que não existe, pois já está na ultima

De fato Reinaldo, se "A3" estiver vazio ou com valor e "B1" vazio a linha ativada será a que citou, eu não cheguei a analisar por inteiro, já que ele colocou somente parte da rotina e foi especifico em relação a Variável "x", e já que na primeira rotina está incompleta, uma vez que tem um "End If" perdido e logo apos a instrução : x = "=CELL(""col"")" , com certeza esta não retornará o numero da coluna e sim o Texto que esta entre as aspas, para ter o resultado da formula armazenado na Variável "x" tem de utilizar a seguinte instrução : x = Evaluate("=CELL(""col"")")

Obrigado Mauro e Reinaldo.

A segunda linha do comando serve para que o próximo item a ser escrito na planilha ocupe uma célula vazia. Até o momento esta parte está funcionando legal.

A respeito do activecell, o erro de digitação já foi reparado, porém agora o excel retorna outro erro:

"Erro em tempo de execução '13': Tipos incompátiveis "
E novamente o comando selecionado como erro é :
"ActiveCell.Offset(0, x).Select"

Acredito que seja o tipo de variável, no momento x está declarado como variant, entretando já tentei com string e integer mas ainda não consegui sair deste erro.
Alguém tem alguma ideia do que posso fazer?

Mauro meu problema estava justamente nesta atribuição do valor de X.

Corrigindo o código para x = Evaluate("=CELL(""col"")") o sistema funcionou perfeitamente.

Muito Obrigado pela ajuda!

Edson, quanto a sua obs :
"A segunda linha do comando serve para que o próximo item a ser escrito na planilha ocupe uma célula vazia. Até o momento esta parte está funcionando legal. "
Conforme o Reinaldo e eu citamos, você terá erro se só tiver uma celula preenchida ou se a mesma estiver em branco, faça um teste apagando todos os valores da linha 3, e execute a rotina, então a obs foi para evitar outro erro se chegar a limpar os ranges.

o ideal seria postar a macro inteira para analise

ao meu ver offset ocasiona confusões no decorrer da analise das macros
select tbm deixa a macro lenta e somente se usa para intervenção manual do operador , tipo se o usuario que vai escolher por qual linha ,coluna ou celula iniciar

sobre offset se pode usar range diretamente com ajustes das variaveis
cells(linha+x, coluna+y) e facilita muito planejar as macros e entendimento posterior

ATT