Relatório VB

de tutorial em tutoria estou montando algo aqui no trabalho, mas gostaria de sanar as ultimas dúvida(espero)rs.. no código abaixo, pois nele q está citando as dúvidas:

Sub relatorio()
lin = 6
Linha = 2
Do Until Sheets("RCC").Cells(lin, 1) = ""
If Sheets("RCC").Cells(lin, Gostaria de definir a coluna de acordo com uma célula na tabela) = "Aqui gostaria q fosse baseado em uma célula da tabela" Then
Sheets("RCCPRINT").Cells(Linha, 1) = Sheets("RCC").Cells(lin, 1)

Linha = Linha + 1
End If
lin = lin + 1

Loop
End Sub