Sub SFINX78()
' SFINX78
    Sheets("27.01.2015").Select    
    Range("A3:N3").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A1").Select
    ActiveSheet.Paste
    Columns("B:B").EntireColumn.AutoFit
    Columns("A:N").Select
    Columns("A:N").EntireColumn.AutoFit
    Range("A1").Select    
    Sheets("27.01.2015").Select    
    Range("A4:N4").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A1").Select
    ActiveSheet.Paste
    Columns("B:B").EntireColumn.AutoFit
    Columns("A:N").Select
    Columns("A:N").EntireColumn.AutoFit
    Range("A1").Select    
End Sub
макрос создаёт 2 страницы для 2-х строк из 1-й страницы
без шапки таблицы и без оформления
ежели кто сможет вместо простого  Range("A4:N4").Select 
придумать нечто с ЦИКЛОМ и с относительными ссылками
тогда макрос с помощью цикла сам всё сделает 
другие макросы и разработки EXCEL на моём сайте 
http://kenokeno.ucoz.ru/load