Prebacivanje i sortiranje određenih podataka u drugi Sheet

Ukratko imam sledeći zahtev. Da pojednostavim, problem se može svesti na sledeće:
Pretpostavimo da u koloni A imamo redom podatke :
A1 = 2
A2 = 5
A3 - podatak nije unešen
A4 = 7
A5 = 34
.
.
Svi gore navedeni podaci se nalaze Sheet1

Potrebno je podatke prebaciti u Sheet2 ali tako da oni budu napisani redom od A1 do An stim da podatak koji nema unos kao sto sam naveo u primeru za A3 ne bude tretiran jer ne postoji ( ništa nije unešeno ) a da podatak iz A4 zauzme njegovo mesto i tako za sve ostale podatke koji su upisani ili nisu upisani.
Dakle cilj je probrati samo one ćelije u kojima postoji unos podataka i prebaciti ih u Sheet2 ali po redosledu od A1 pa na dalje dok ima unosa u ostalim ćelijama a sve one u kojima nema unosa jednostavno ne tetirati tj. ne prebacivati u Sheet2.

Nadam se da će neko imati vremena za pomoć, hvala unapred !

Jedna od mogućnosti je preko filtriranja. Selektuješ u Sheet1 kolonu A. Onda Data, Filter, pa AutoFilter pa kad se pojavi strelica u A1 odabereš (NonBlanks). Posle toga nemaš praznih redova pa iskopiraj na Sheet2
Pozdrav

Evo ti jedna macronaredba koja rjesava tvoj problem

Sub Sortiraj()
'
' Sortiraj Makronaredba
'

'
Selection.Copy
Sheets("List2").Select
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("List2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("List2").Sort.SortFields.Add Key:=Range("B1:B5"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("List2").Sort
.SetRange Range("A1:B5")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B1:B5").Select
Selection.ClearContents
Range("A5").Select
Selection.ClearContents
End Sub

Potpis

MMisic