Hola! para todos. Con un poco de suerte y viento a favor, lo siguiente podría funcionar bien:
Código PHP:
With Sheets("Prod_Entrada")
If .[a2] <> "" Then
With .Range(.[a2], .[a1].End(xlDown))
.Cells(1) = 1: .DataSeries Type:=xlLinear, Step:=1
End With
End If
End With
Saludos, Cacho R.
