Копирование значения ячейки с одного листа и вставка в другой

Public Sub Macrosmain()
    Dim GroupNum, SbjName as string
 
    Call CellTakingAndPlacingCycle
    ' Циклы для перебора ячеек, где находятся названия предметов, и перебора ячеек, которые должны заполняться не сделан,
    ' да и проблема не в этом
End Sub
 
Private Sub CellTakingAndPlacingCycle()
    Sheets("N2").Select
    Range("C7").Select
 
    Call TakingGroupNum
    Call CheckingSbjNameInListOne
 
    Sheets("N2").Select
    Range("B7").Select ' C7 - это ячейка, в которую должен скопироваться предмет
    ActiveCell.Value = SbjName
End Sub
 
Private Sub TakingGroupNum
    Dim ColumnNum1 As Integer
    ColumnNum = ActiveCell.Column - 1
 
    ActiveCell.Offset(0, -ColumnNum1).Select
    GroupNum = ActiveCell.Value
End Sub
 
Private Sub CheckingSbjNameInListOne()
    Dim ColumnNum2 As Integer
    ColumnNum2 = ActiveCell.Column - 1
    
    Sheets("List1").Select
    Range("B7").Select ' Я заранее поставил в эту ячейку тот номер группы, что скопировался бы на второй  
    If ActiveCell.Value = GroupNum Then
        ActiveCell.Offset(0, -ColumnNum2).Select
        SbjName = ActiveCell.Value
    End If
End Sub