Sub unesi()
Application.ScreenUpdating = False
ActiveWorkbook.Sheets("podaci").Select
Range("A3").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
Sheets("unos").Select
Range("A4:A20").Copy
Sheets("podaci").Select
ActiveCell.Offset(0, 0).PasteSpecial (xlPasteValues)
Sheets("unos").Select
Range("B4:B20").Copy
Sheets("podaci").Select
ActiveCell.Offset(0, 1).PasteSpecial (xlPasteValues)
Sheets("unos").Select
Range("B1").Copy
Sheets("podaci").Select
ActiveCell.Offset(0, 1).PasteSpecial (xlPasteValues)
Sheets("unos").Select
Range("B2").Copy
Sheets("podaci").Select
ActiveCell.Offset(0, 1).PasteSpecial (xlPasteValues)
Sheets("unos").Select
Range("D2").Copy
Sheets("podaci").Select
ActiveCell.Offset(0, 1).PasteSpecial (xlPasteValues)
Sheets("unos").Select
Application.CutCopyMode = False
End Sub