Macro running slow

I have the following macro that runs very slow. Is there a way to speed it up? Any help would be great. Thanks.

Sub FilterForChanges()
    TargetRow = 2
    SourceRow = 1
    SourceColumn = "AE"
    
    Do
here:
        If (IsError(ActiveCell.Value)) Then
            SourceRow = SourceRow + 1
            SourceCell = SourceColumn & SourceRow
            Range(SourceCell).Select
            GoTo here
        End If
        
        If (ActiveCell.Value = 1) Then
            Range(Selection, Cells(ActiveCell.Row, 1)).Select
            Selection.Copy
            Sheets("Changes").Select
            NextCell = "A" & TargetRow
            TargetRow = TargetRow + 1
            Range(NextCell).Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Sheets("Today").Select
        End If
        SourceRow = SourceRow + 1
        SourceCell = SourceColumn & SourceRow
        Range(SourceCell).Select
        If (IsError(ActiveCell.Value) = True) Then
            GoTo here
        End If
    Loop Until ActiveCell.Value = "STOP"
    
    
   
End Sub