Am nevoie de ajutor pentru problema in excel

am nevoie de putin ajutor in ceea ce priveste un macro in excel.. eu sunt inca la inceput si am facut urmatorul macrou

Sub ProgramFutut12()
Dim i, nr As Long
	With Application
		.Calculation = xlCalculationManual
		.ScreenUpdating = False
	
	nr = ActiveSheet.UsedRange.Rows.Count
	ActiveSheet.UsedRange.Rows.Select
	For i = Selection.Rows.Count To 1 Step -1
		If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
			Selection.Rows(i).EntireRow.Delete
		End If
	Next i

		.Calculation = xlCalculationAutomatic
		.ScreenUpdating = True
	End With
End Sub

el trebuie in principiu sa imi stearga toate liniile goale dintr-un fisier de excel..el merge pe toate fisierele facute de mine dar nu merge pe un fisier excel care este un output al unui program de calcul.. acel fisier are linii goale  dar nu pot sa le sterg.. aveti vreo sugestie... cu ce-as putea inlocui conditia de select?  

Sub Program12()
Dim i As Long, nr As Long, j As Long

 nr = Selection.specialcells(xlLastCell).Row
 ' Nr preia numarul rindului pe care se afla ultima inregistrare de pe
 ' foaia curenta. Adica obtine nu numarul maxim de Rows dar ultimul Row
 ' pe care a fost introdus/contine ceva text.

 For i = nr To 1 Step -1

  ' Parcurgi fiecare coloana in parte pina la numarul total de coloane
  ' sau daca ai un numar fix de coloane care trebuie verificate inlocuiesti
  ' limita din "ActiveSheet.Rows(i).Column.Count" in numarul fix de coloane

  For j = 1 to ActiveSheet.Rows(i).Column.Count
 
   If Len(ActiveSheet.Rows(i).Columns(j)) > 0 then
	' Daca in celula de pe Row = i si Col = i, exista macar un caracter
	' intreg row este sters si se continua cu urmatorul rind. 

	ActiveSheet.Rows(i).Delete
	Exit For
   End If 

  Next j  'Next Column

 Next i  'Next Row

End Sub

Edited by Hato0be, 14 September 2006 - 09:20.