Sub Main()
' Keyboard Shortcut: Ctrl+Shift+M
    Dim i As Long, j As Long
    i = 1                                                                       				'Sets the start at cel A1
    Do
        If ActiveCell.Range("A1") = "String" Then                               		'If it finds text there (a person's name)
            ActiveCell.Offset(1, 0).Range("A1").Select                          	'then it takes the address next to the name (B1)
            Selection.Cut
            ActiveCell.Offset(-1, 1).Range("A1").Select
            ActiveSheet.Paste
            ActiveCell.Offset(1, 0).Range("A1").Select
            If ActiveCell.Range("A1") <> "" Then                                		'if the person (A1) has extra LANDLINES
                If ActiveCell.Range("A1") < 3000000 Then
                    ActiveCell.Range("A1").Select                               		'it takes the number next to the address (C1)
                    Selection.Cut
                    ActiveCell.Offset(-1, 1).Range("A1").Select
                    ActiveSheet.Paste
                    ActiveCell.Offset(4, -2).Range("A1").Select
                Else                                                            			'if the person (A1) has extra MOBILES
                    ActiveCell.Range("A1").Select                               		'it takes the number next to the landlines (D1)
                    Selection.Cut
                    ActiveCell.Offset(-1, 2).Range("A1").Select
                    ActiveSheet.Paste
                    ActiveCell.Offset(4, -2).Range("A1").Select
                End If
            Else
                ActiveCell.Offset(2, -1).Range("A1").Select                    	'If no extras occur
                If ActiveCell.Range("A1") = "Long" And "< 3000000" Then           'It examines the type of regular number they have and either
                    Selection.Cut                                               			'it takes the number next to the address (C1)
                    ActiveCell.Offset(-3, 2).Range("A1").Select
                    ActiveSheet.Paste
                    ActiveCell.Offset(4, -2).Range("A1").Select
                ElseIf ActiveCell.Range("A1") = "Long" And "> 3000000" Then   'or it takes the number next to the landline (D1)
                    Selection.Cut
                    ActiveCell.Offset(-3, 3).Range("A1").Select
                    ActiveSheet.Paste
                    ActiveCell.Offset(4, -2).Range("A1").Select
                Else
                    ActiveCell.Offset(0, 4).Range("A1").Select                  	'if it finds something other than a number it inserts "OUPS" on (E1)
                    ActiveCell.Text = "OUPS"
                    ActiveCell.Offset(1, -4).Range("A1").Select
                End If
            End If
            i = i + 3
        Else
            ActiveCell.Offset(1, 0).Range("A1").Select			'if it doesn't find any text in the first place, it goes to the next row
            i = i + 1						
        End If
    Loop While i <= 40000					'and loops for 4000 lines
End Sub
