Connect Macros to run one after the other | Excel forum

Hey,
I have set up several codes (as below) but I can not figure out how to connect two of them to automatically run all in one go. it seems that currently, i need to run them one after the other....

In case of interest, the data is copied from an email into excel.

The problem occurs between 'CHANGE TEXT TO NUMBERS' and ' Copy_Paste_Year_Values' - somehow the update / changes stop after 'CHANGE TEXT TO NUMBERS' and it wont go on....


Sub Prep_UKCont_Data()

'REMOVE SUBS MACRO - UKCONT
'


With ActiveSheet
.AutoFilterMode = False
With Range("C1", Range("C" & Rows.Count).End(xlUp))
.AutoFilter 1, "S"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With




'COPY BUILD YEAR AND POSITION DATE FORMULA TO LAST ROW OF DATA'

'

Dim lastrow As Long
lastrow = Cells(Rows.Count, "h").End(xlUp).Row
Range("I4:K4").Select
Selection.Copy
Range("I5:I" & lastrow).Select
ActiveSheet.Paste
End




'Copy_and_Past_Values Macro
'

'
ActiveWindow.SmallScroll Down:=-18
Range("J5:J121").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-216
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



'CHANGE TEXT TO NUMBERS'

Range("J5:J121").Select
With Selection
.NumberFormat = "General"
.Value = .Value
End With




' Copy_Paste_Year_Values'
'

'
Range("K5:K121").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-207
Range("H5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub



Sub PASTE_UKC_DATA()
'
' PASTE_UKC_DATA Macro'
'

'
Sheets("UKC Position List Download").Select
Range("A5:C9").Select
ActiveWindow.SmallScroll Down:=228
Range("A5:J249").Select
Selection.ClearContents
Sheets("UKC POSITION FORMAT").Select
ActiveWindow.SmallScroll Down:=-27
Range("B5:H33").Select
ActiveWindow.SmallScroll Down:=195
Range("B5:H221").Select
Selection.Copy
Sheets("UKC Position List Download").Select
ActiveWindow.SmallScroll Down:=-261
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



'COPY VESSEL AGE, AGE GROUPING AND MONTH OPEN FORMULA TO LAST ROW OF DATA'

Sheets("UKC Position List Download").Select
Dim lastrow As Long
lastrow = Cells(Rows.Count, "D").End(xlUp).Row
Range("A3:C3").Select
Selection.Copy
Range("A5:A" & lastrow).Select
ActiveSheet.Paste
End



End Sub



Thanks!

Annika