Sub kopiujwsklej()
 Dim firstemptycell As Range
 Set firstemptycell = Cells(Rows.Count, 5)
 Dim lastToPaste As Range
 Set lastToPaste = firstemptycell.Offset(10, 0)

'stworz nowy arkusz
'Sheets.Add.Name = "Summary"
'Set Worksheet = Sheets.Add(After:=Sheets(Sheets.Count))

'nazwy kolumny
 Worksheets("Summary").Cells(1, 1).Value = "Date_miesiecznie"
 Worksheets("Summary").Cells(1, 2).Value = "Date_kwartalnie"
  Worksheets("Summary").Cells(1, 3).Value = "Date_rocznie"
   Worksheets("Summary").Cells(1, 4).Value = "Nazwa_serii"
    Worksheets("Summary").Cells(1, 5).Value = "Nazwa_wskaznika"
    Worksheets("Summary").Cells(1, 6).Value = "Wartosc_wskaznika"

    'Na razie nie puszczam petli
    'Dim Current As Worksheet
  'For Each Current In Worksheets
'If Current.Name <> "Spis_Contents" Then
'Sheets(Current.Name).Select

 'przeklej nazwe wskaznikow do Suummary
 Worksheets("1").Range("A3").Copy Worksheets("Summary").Range(firstemptycell, lastToPaste)
 'firstemptycell
 'kopiuje przedzia3y do arkuszu Summary
 Worksheets("1").Range("B6:F6").Copy
 Worksheets("Summary").Range("D2:D11").PasteSpecial Transpose:=True

 'znajdz przedostatnia wiersz w kolumnie
 Worksheets("1").Range("A" & Cells.Rows.Count, "F" & Cells.Rows.Count).End(xlUp).Offset(-1, 0).Copy
 Worksheets("Summary").Range("A2:A6").PasteSpecial Transpose:=True


 'znajdz ostatnia wiersz w kolumnie
  'Worksheets("1").Range("A" & Cells.Rows.count).End(xlUp).Copy
  '.Range("A1:A" & .Cells(.Rows.Count, "A")
  Worksheets("1").Range("A" & Cells.Rows.Count).End(xlUp).Copy
  Worksheets("Summary").Range("A7:A11").PasteSpecial Transpose:=True



 'pierwasza wolna komowka w kolumnie
 NextRow = Worksheets("Summary").Cells(Rows.Count, 2).End(xlUp).Row + 1
 Cells(NextRow, 1).Select



'kopiuj przedostatnie wartosci wersja reczna
  Worksheets("1").Range("B" & Cells.Rows.Count).End(xlUp).Offset(-1, 0).Copy
  Worksheets("Summary").Range("F" & Cells.Rows.Count).PasteSpecial Transpose:=True
  Worksheets("1").Range("C" & Cells.Rows.Count).End(xlUp).Offset(-1, 0).Copy
  Worksheets("Summary").Range("F3").PasteSpecial Transpose:=True
  Worksheets("1").Range("D" & Cells.Rows.Count).End(xlUp).Offset(-1, 0).Copy
  Worksheets("Summary").Range("F4").PasteSpecial Transpose:=True
  Worksheets("1").Range("E" & Cells.Rows.Count).End(xlUp).Offset(-1, 0).Copy
  Worksheets("Summary").Range("F5").PasteSpecial Transpose:=True
  Worksheets("1").Range("F" & Cells.Rows.Count).End(xlUp).Offset(-1, 0).Copy
  Worksheets("Summary").Range("F6").PasteSpecial Transpose:=True

'kopiuj ostatnie wartoci wersja reczna
 Worksheets("1").Range("B" & Cells.Rows.Count).End(xlUp).Copy
Worksheets("Summary").Range("F" & Cells.Rows.Count).PasteSpecial Transpose:=True
  Worksheets("1").Range("C" & Cells.Rows.Count).End(xlUp).Copy
 Worksheets("Summary").Range("F8").PasteSpecial Transpose:=True
  Worksheets("1").Range("D" & Cells.Rows.Count).End(xlUp).Copy
 Worksheets("Summary").Range("F9").PasteSpecial Transpose:=True
  Worksheets("1").Range("E" & Cells.Rows.Count).End(xlUp).Copy
 Worksheets("Summary").Range("F10").PasteSpecial Transpose:=True
  Worksheets("1").Range("F" & Cells.Rows.Count).End(xlUp).Copy
 Worksheets("Summary").Range("F11").PasteSpecial Transpose:=True

 'Na razie nie puszczam petli
 'End If
 'Next Current

 'pierwasza wolna komowka w kolumnie pierwszej
 'NextRow = Worksheets("Summary").Cells(Rows.count, 2).End(xlUp).Row + 1
 'Cells(NextRow, 1).Select

 'ostatnia niepusta komorka w kolumnie
 'Dim lastRow As Long

' LastRow = Range("A" & Rows.count).End(xlUp).Row + 1
'Sheets("Summary").Range("C" & LastRow).Paste

End Sub