Loop através das células e adicione a um intervalo
Como eu percorreria as células B1 a J1 e as adicionaria a um intervalo se elas atenderem a um determinado critério. Por exemplo
Dim Range1 As Range
For i = 1 to 9
If Range("A1").Offset(1,i) meets a certain criteria Then
**Add that cell to Range1**
End If
Next i
Não sei ao certo como abordar a parte de adicionar determinadas células ao Range
Obrigado pela ajuda