Caro Natan,
Muito obrigado pela sua ajuda.
Agora o problema é outro:
Gera um erro 28 - espaço insuficiente para pilha, justamente na linha que está em negrito.
No mesmo código, alterei onde fui instruído:
Dim casos As Worksheet
Set casos = Worksheets("Casos")
casos.Select
Dim linhas As Variant
linhas = casos.UsedRange.Rows.Count
With casos
.Range("A9").Select
Dim regs As Variant
Dim ThisValue As Range
Dim ThisValue2 As Range
For regs = 9 To linhas 'regs = 7 8 'ThisValue = ThisValue + 1
Set ThisValue = Cells(regs, 1)
If ThisValue = 1 Then
ThisValue = ThisValue + 1
Set ThisValue2 = Range(regs, regs).Select
ThisValue2.Copy Destination:=Plan3.Range("A" & regs).Select
ActiveCell.Offset(1, 0).Select
regs = regs + 1
End If
If ThisValue <> 1 Then
ActiveCell.Offset(1, 0).Select
regs = regs + 1
End If
Next
Range("K5").Value = ThisValue