Sub Update(brand)

Dim c As Range
Dim tbl As ListObject
Dim Rng As Range
Dim i As Integer

brand = brand & "_Param"

For Each tbl In Worksheets("Assumptions").ListObjects
        Set Rng = Range(tbl.name)
        For Each c In Rng
            If Not IsEmpty(c.Value) Then
                Worksheets(brand).Range(c.Address).Value = c.Value
            End If
        Next
Next tbl


End Sub