Two macros one button

[jj4jj]

Hello,

is it possible to combine two macros in one button? I have this two macros and i want to run second one, once the first one is completed automatically.


first macro:


Sub addcell()
Dim i As Long
For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1
If Cells(i, "A") <> "" Then Cells(i + 1, "A").Insert
Next i
End Sub




second macro:

Sub RemoveRows()

Dim i As Long

i = 1

Do While i <= ThisWorkbook.Worksheets("Hárok2").Range("A1").CurrentRegion.Rows.Count

If InStr(1, ThisWorkbook.Worksheets("Hárok2").Cells(i, 1).Text, "-", vbTextCompare) > 0 Then
ThisWorkbook.Worksheets("Hárok2").Cells(i, 1).EntireRow.Delete
Else
i = i + 1
End If

Loop

End Sub






any simple suggestions?

[LokeshKumar]

Yup....
You can run only the first macro...it will run the second macro once first macro is completed.

Please Login or Register  to view this content.

Click *Add Reputation to say Thank and Don't forget to mark threads as "Solved" .

[jj4jj]

Itś working just fabulous... Thanks

[LokeshKumar]

Please do the following....Cheers..
Click *Add Reputation to say Thank and Don't forget to mark threads as "Solved" .