excel 2013 Macro Kode pomoc

[cincin]

Spoštovani!
Napisal sem macro za lazje delo v Excelu in nekaj funkcij me moti pri delu.
Prosim: če bi mi Vi macro malo uredili da dela kako Bog zapoveda.

kadar mu ukazem Run on prenese podatke iz "Poloznica v ARHIV, ali mi potem ostano oba lista sive barve obelezan in na listu Poloznice se Filter prikaze samo tiste katere so po ukazom. "i" ..
Če je možno da v macro brisete code katere to delajo.

Na ove tri slike se vide moje tezave.

Hvala za Vsako pomoc in nasvet.

Macro.
Bližnjica: Ctrl+i
'
Sheets("ARHIV").Select
Range("B4:L30").Select
Selection.ClearContents
Range("A1").Select
Sheets("Poloznice").Select
Range("B4").Select
ActiveWindow.SmallScroll Down:=-13
Range("M4").Select
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=-13
Selection.AutoFilter Field:=13, Criteria1:="i"
Range("B4:L30").Select
Selection.Copy
Sheets("ARHIV").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False

End Sub

[admin]

Pozdravljeni,

Na konec makra dodajte naslednje ukaze:

Koda: Izberi vse

  '... vaša koda ....
 Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

  '.. to dodajte ..
  Sheets("Poloznice").Select
  ActiveSheet.ShowAllData
  Range("A1").Select

  Sheets("ARHIV").Select
  Range("A1").Select
end sub

[cincin]

Gospod!
Hvala za pomoč, zdaj delo vredu.

Hvala in Lep pozdrav