FelipeSchneider

Olá a todos! Alguém sabe me dizer como declarar esta variável da sub abaixo?? O que eu quero é o range varie de acordo com a variável, ou seja, o número da linha sempre vai variar mas a coluna não, são sempre as mesmas. O sistema deveria fazer o seguinte: ao verificar que a célula da coluna I tem o conteúdo "não", em seguida, copiar as células B:H da mesma linha em outra planilha (créditos em aberto). Não sei se me fiz entender...vejam o código criado até agora... Sub CA() Dim i As String i = ????? Verificar: If ActiveCell = "não" Then Range("B" & i & ":" & "H" & i).Select Selection.Copy ElseIf ActiveCell = "ok" Then ActiveCell.Offset(1, 0).Select GoTo Verificar End If Sheets("CRÉDITOS EM ABERTO").Select Range("B4:B5").Select Range("A1048576").Select ActiveCell.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste End Sub Não consigo fazer funcionar do jeito que eu quero...pois sempre ao seleciona o mesmo range das colunas B:H, não varia a linha conforme vai descendo. Se alguém puder ajudar...por favor! Grato, Felipe Schneider