I am a poor student at VBA so this should be easy for you pro's out there.

Below is as far as i have got. No errors are thrown up but it doesn't do as i expect it too.

Any help appreciated.

Thanks in advance. 

Option Explicit


Private Sub ComboBox1_Change()

    Dim ws As Worksheet
    Dim ws1 As Worksheet
    Dim LastRow As Long
        Set ws = Worksheets("Tariffs")
        Set ws1 = Worksheets("Billing")

On Error Resume Next

LastRow = ws.Cells(Cells.Rows.Count, "A").End(xlUp).Row

ws1.Cells("B2") = WorksheetFunction.VLookup(ComboBox1, ws.Range("Tariff2"), 2, False)


End Sub