Vba return value to cell

I want to add to this code that C191:H191 return the value in F183 after I click a button to sent data else where.

Thanks

Sub Bookshelf()
'
' Bookshelf Macro
' Move Data To Total Sheets
'

'
    ActiveWindow.SmallScroll Down:=27
    Range("A229:J233").Select
    Selection.Copy
    Sheets("Hardware Total").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(4, 10).Range("A1").Select
    Sheets("Data Entry").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A207:J215").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Plam Total").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(2, 10).Range("A1").Select
    Sheets("Data Entry").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("A195:J204").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Wood Total").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(5, 10).Range("A1").Select
    Sheets("Data Entry").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("B180").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("B182").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("F183").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("C1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("B183").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("D1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("B184").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("E1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("B185").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=0
    Sheets("Cabinet Total").Select
    Range("F1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    ActiveWindow.SmallScroll Down:=6
    Range("C185").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("G1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("E198").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("H1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("F198").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("I1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("B179").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("J1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Data Entry").Select
    Range("C179").Select
    Application.CutCopyMode = False
    Union(Sheets("Data Entry").Range("B180"), Sheets("Data Entry").Range("B182")).Value = "0"
End Sub