Sub Test()
Dim rngToChange As Range
Dim iMultiplier As String
Dim iDivisor As String
With Sheets("Sheet1")
  iMultiplier = .Range("A1").Value
  iDivisor = .Range("A2").Value
  .Range("A3").Value = iMultiplier & iDivisor
  Set rngToChange = .Range("B1:B" & .Cells(Rows.Count, "B").End(xlUp).Row)
  .Range("A3").Copy
  rngToChange.PasteSpecial _
  Paste:=xlAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
End With
End Sub

Sub CombineValues()
Dim i As Long
With ActiveSheet
  For i = 1 To .Range("B" & .Cells.SpecialCells(xlCellTypeLastCell).Row).End(xlUp).Row
      .Range("B" & i).Value = .Range("A" & i).Value + Evaluate(.Range("B" & i).Value)
      .Range("B" & i).NumberFormat = "General"
  Next
End With
End Sub

Sub CombineValues()
Dim i As Long
With ActiveSheet
  For i = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
    If IsNumeric(Evaluate(.Range("A" & i).Value)) And IsNumeric(Evaluate(.Range("B" & i).Value)) Then
      .Range("B" & i).Value = Evaluate(.Range("A" & i).Value) + Evaluate(.Range("B" & i).Value)
    Else
      .Range("B" & i).Value = .Range("A" & i).Value & " " & .Range("B" & i).Value
    End If
      .Range("B" & i).NumberFormat = "General"
  Next
End With
End Sub

Sub CombineValues()
Dim StrTgt As String, i As Long, j As Long
With ActiveCell
  StrTgt = UCase(Left(Trim(InputBox("Combine with cell:" & vbCr & _
    "(A)bove" & vbCr & "(B)elow" & vbCr & _
    "(L)eft" & vbCr & "(R)ight", "Get Source Direction")), 1))
  If StrTgt = "" Then Exit Sub
  Select Case StrTgt
    Case "A": i = -1: j = 0
    Case "B": i = 1: j = 0
    Case "L": i = 0: j = -1
    Case "R": i = 0: j = 1
    Case Else: Exit Sub
  End Select
  If .Column + i >= 0 And .Row + j >= 0 Then
    If IsNumeric(Evaluate(.Offset(i, j).Value)) And IsNumeric(Evaluate(.Value)) Then
      .Value = Evaluate(.Offset(i, j).Value) + Evaluate(.Value)
    Else
      .Value = .Offset(i, j).Value & " " & .Value
    End If
      .NumberFormat = "General"
  End If
End With
End Sub