Sub WriteHTMLfile()
    Dim CurrentSheet As String
    Dim RowCounter As Integer
    Dim FileNumber As Integer
    
    
    

'Create Basic Variables for Dictionary
        Dim VarDictColumn As Integer
        Dim VarDictCount As Integer
        Dim VarDictCounter As Integer
        Dim VarDict As Object
        
'Store manual variables
    CurrentSheet = "Combined_Code"
    FileNumber = FreeFile
    
Worksheets(CurrentSheet).Activate

'Create dictionary and get variables
        VarDictColumn = Worksheets(CurrentSheet).Range("C3").Value
        VarDictCount = Worksheets(CurrentSheet).Range("C4").Value
        Set VarDict = CreateObject("Scripting.Dictionary")
        For VarDictCounter = 1 To VarDictCount
            VarDict(Worksheets(CurrentSheet).Cells(VarDictCounter, VarDictColumn).Value) = Worksheets(CurrentSheet).Cells(VarDictCounter, VarDictColumn + 1).Value
        Next VarDictCounter

'Open file for writing
    Open VarDict("PathFilename") For Output As FileNumber
    
    For RowCounter = VarDict("StartRow") To VarDict("LastRow")
        
        'Write each line (no ".value" at the end?)
        Print #FileNumber, Worksheets(CurrentSheet).Cells(RowCounter, VarDict("CodeColumn"))
    
    Next RowCounter

'Close file
    Close FileNumber

End Sub