Hello, im trying to figure out how to make this code better. currently the code only takes one row,since its based on cell position.
Dim i As Integer, Mail_Object, Email_Subject, o As Variant
Dim TypeS As String
TypeS = ActiveSheet.ListObjects("Orderoversikt").ListColumns(1).Range.Column...