Copy only Used Parts of a Range

Hello someone3426,

Copy the macro into a VBA module and then add a button to your worksheet and attach the macro to it.

Sub CopySkills()

  Dim DstRng As Range
  Dim I As Long
  Dim N As Long
  Dim SrcRng As Range
  
    Set SrcRng = Worksheets("Design").Range("A121:A218")
    Set DstRng = Worksheets("Character Sheet 1").Range("BI16")
     
     N = 16
     For I = 1 To SrcRng.Rows.Count
       If SrcRng.Cells(I, 2) <> 0 Then
          DstRng.Offset(N, 0) = SrcRng.Cells(I, 1)
          DstRng.Offset(N, 21) = SrcRng.Cells(I, 2)
          N = N + 2
       End If
     Next I
     
End Sub