Вот так будет работать (странно несколько - первое значение не отображает, но работает):    
 
Sub Copy()  
   x = Sheets("Жигиттер").Cells(Rows.Count, 1).End(xlUp).Row  
   For i = 1 To x  
       FileCopy Cells(i, 1).Value, "d:\1\Жигиттер\Жигиттер_" & i & ".mp3"  
       Cells(i, 2).Value = "OK"  
       goPBar 1, x, i, 1  
   Next  
End Sub  
 
 
И замените строку Dim x$  
на Dim x    
или на Dim x&  
 
$ - определяет переменную с типом String, а у вас x - число