Не понял о каком файле речь.  
 
скрипт работает.  
но хотелось бы два момента:  
можно ли настроить, чтобы он сам автоматически перекидывал (не запуская его каждый раз) в реальном времени (средствами эксель вроде можно так было делать).  
первая строчка на втором листе должна быть уже с данными, а не просто пустая, т.е. из первого листа со 2ой и вниз, а на 2ом листе это будет с 1ой и вниз  
 
У меня файл с этим скриптом будет на потоке и каждый раз удалять строчку не самая удачная затея, т.к. со второго листа сразу все выдирается. Можно ли как-то в этот скрипт добавить удаление первой строчки, после переноса всех данных?

"По какому событию?"  
После того как я вставляю данные, чтобы они автоматически обрабатывались без всяких запусков. Может конечно я брежу, но когда я учился давно мы изучали взаимосвязь ячеек между листами и как-то соединяли, чтобы данные переносились. Именно это я и хочу сделать.  
 
Вставляю на листе1, и переключаясь на лист2 уже вижу в нем то что мне нужно.

По какому событию? Так и не ответили...  
Но из сказанного я бы выбрал "и переключаясь" :)

В первом посте было  
 
Стобец D  копировался в столбец А второго листа  
Столбец G в столбец B  
Столбец F в столбец С  
Столбец М в Е    
H в F  
 
в новом примере    
C в A  
F в B  
E в C  
J в E  
G в F    
 
Где правильно?

В код листа "Сюда":  
Private Sub Worksheet_Activate()  
Dim a, b, i  
Application.ScreenUpdating = False  
Application.Calculation = xlCalculationManual  
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).EntireRow.ClearContents  
a = Split("4 6 7 8 13", " ")  
b = Split("1 3 2 6 5", " ")  
For i = 0 To UBound(a)  
Sheets(1).Columns(Val(a(i))).Cells(2).Resize(Sheets(1).UsedRange.Rows.Count).Copy Columns(Val(b(i)))  
Columns(Val(b(i))).EntireColumn.AutoFit  
Next i  
Application.Calculation = xlCalculationAutomatic  
Application.ScreenUpdating = True  
End Sub  
 
Private Sub Worksheet_Deactivate()  
Cells.ClearContents  
End Sub  
 
P.S. Офиса у меня нет :( :) У соседа есть, он под мою диктовку записывает в своём. Архиваторов у нас в городе нет. Ждём зимы, открываем окна, все файлы на морозе сжимаются. Из принципов которыми руководствуюсь, Вас, напрямую, касается один - не отказывать людям, если могу помочь.  
С моих слов записано верно.

>>Kuzmich: В первом посте... [не так, как ] ...в новом примере
И там и там правильно. Просто выдача через веб-интерфейс немного отличается выдачи через csv  
 
>>k61: В код листа "Сюда": Private Sub Worksheet_Activate()...  
Скрипт работает. Все отлично. Только сайт обновили и немного отличатся стали поля. Сам я не понял, как с скрипте изменить нужные строчки на мои  
 
Сейчас мне выдает так как в файле. Нужно на второй лист перенести в такой последовательности CFE пустая JG

В макросе К61  
a = Split("4 6 7 8 13", " ")  
это столбцы D G F H M откуда копировать  
b = Split("1 3 2 6 5", " ")  
это столбцы A C B F E куда копировать  
поставьте свои номера столбцов

Можно, и кавычки убрать:  
Private Sub Worksheet_Activate()  
Dim a, b, i  
Application.ScreenUpdating = False  
Application.Calculation = xlCalculationManual  
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).EntireRow.ClearContents  
a = Array(4, 6, 7, 8, 13)  
b = Array(1, 3, 2, 6, 5)  
For i = 0 To UBound(a)  
Sheets(1).Columns(a(i)).Cells(2).Resize(Sheets(1).UsedRange.Rows.Count).Copy Columns(b(i))  
Columns(b(i)).EntireColumn.AutoFit  
Next i  
Application.Calculation = xlCalculationAutomatic  
Application.ScreenUpdating = True  
End Sub