I have a large macro that copies from an old workbook, into a new one (truncated version below) and I would like some help splitting it up. I'm terrible at vba, so please excuse my poor attempt (also below). Any help is very appreciated. I have no idea what I'm doing, so I'm sure it's a dumb newbie mistake. Thanks.

Macro sample code:
Option Explicit

Sub Character_Setup()

'Set selectedworkbook
Set wb2 = ActiveWorkbook

'Select cells to copy
wb2.Worksheets("Character Setup").Range("Race").Copy

'Go back to original workbook you want to paste into
wb.Activate

'Paste starting at the last empty row
wb.Worksheets("Character Setup").Range("Race").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("J4:L6").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("J4:L6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("Alignment").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("Alignment").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("Background").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("Background").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("CustomBackground").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("CustomBackground").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("B19:C20").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("B19:C20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("ArtisanTool1").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("ArtisanTool1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("GameSet1").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("GameSet1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("BackgroundCustom").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("BackgroundCustom").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("BackgroundSpecialty").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("BackgroundSpecialty").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("g24:g27").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("g24:g27").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("i21:j22").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("i21:j22").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("i25:j26").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("i25:j26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("GladiatorWeapon").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("GladiatorWeapon").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("k20:l21").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("k20:l21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("CustomTrait").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("CustomTrait").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("o7:q24").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("o7:q24").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("PersonalityTrait1").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("PersonalityTrait1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("PersonalityTrait2").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("PersonalityTrait2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("Ideal").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("Ideal").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("Bond").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("Bond").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("Flaw").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("Flaw").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("Trinket").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("Trinket").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("d59:e59").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("d59:e59").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("d61:e61").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("d61:e61").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("HalfElfSkill1").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("HalfElfSkill1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("HalfElfSkill2").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("HalfElfSkill2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("BonusLanguage").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("BonusLanguage").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("DwarvenTool").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("DwarvenTool").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("DragonbornDraconicAncestry").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("DragonbornDraconicAncestry").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("HighElfBonusCantrip").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("HighElfBonusCantrip").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("b77:b86").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("b77:b86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("d77:d86").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("d77:d86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("f77:f86").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("f77:f86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("h77:h86").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("h77:h86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("j77:j86").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("j77:j86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("k77:k86").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("k77:k86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("l77:l86").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("l77:l86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("AdventuringGroup").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("AdventuringGroup").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True

wb2.Activate
wb2.Worksheets("Character Setup").Range("PartyTreasuryOption").Copy
wb.Activate
wb.Worksheets("Character Setup").Range("PartyTreasuryOption").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
My attempt at splitting up my large macro:
Option Explicit

Sub Import_Master_Button()
'Last cell in column
Dim WS As Worksheet
Dim LastCell As Range
Dim LastCellRowNumber As Long


Set WS = Worksheets("Character Setup")
With WS
    Set LastCell = .Cells(.Rows.Count, "C").End(xlUp)
    LastCellRowNumber = LastCell.Row + 1
End With

Dim wb As Workbook, wb2 As Workbook
Dim vFile As Variant

'Set source workbook
Set wb = ActiveWorkbook

'Open the target workbook
vFile = Application.GetOpenFilename("Excel-files,*.xlsm", _
    1, "Select Character Sheet To Import", , False)

'if the user didn't select a file, exit sub
If TypeName(vFile) = "Boolean" Then Exit Sub
Workbooks.Open vFile

Call SubCharacter_Setup
Call SubLevel_Up
Call SubClass_Options
Call SubFeat_Options
Call SubCharacter_Sheet
Call SubSpell_Sheets
wb2.Save
wb2.Close
End Sub