Имена с индексами листов не совпадают  
сам придумал только так:  
Sub pp()  
Dim i As Long, j As String  
For i = 1 To 8  
j = i  
ActiveWorkbook.Sheets(j).Range("a1") = ActiveWorkbook.Sheets("Котировки").Range("k" & 1 + i)  
Next i  
End Sub  
 
по другому никак? только через доп переменную?  
 
Спасибо.