Moving rows to a couple of different sheets based on the value

[Jimmytheman]

Hey Guys,

I have to make a sort of database to make my job a little bit easier and have been struggling with macro's.(I'm a big excel noob) What I would like to make is a macro that scans the column (categorie) for the inserted value (one of the 4) and based on that value moves the entire row to another worksheet.
Sorry for the Language, I need it to work in Dutch.
It won't let me upload an image of the table so I included a dropbox link with a screenshot.
https://www.dropbox.com/s/dirrii65o1rz21l/Screen Shot 2017-01-10 at 14.02.03.png?dl=0

The values are in column G
Categorie/worksheet
Expert->Experts
Champion->Champions
Sleutelfiguur->Sleutelfiguren
Nieuw contact-Nieuwe contacten

I appreciate your help! Thank you so much.

Voornaam	Achternaam	Faculteit/dienst	specialiteit	Email	Laatst gesproken	Categorie
John	Apple	FER	Excel	.	10/10/10	Expert

<tbody>
</tbody>

 

[Jimmytheman]

I'm trying to make this work as a simple start of the code but I'm not sure what im doing.

Sub copyrows()


Dim tfCol As Range, Cell As Object



Set Experts = Sheet1
Set Champions = Sheet2
Set Sleutelfiguren = Sheet3
Set Nieuwecontacten = Sheet4


Set tfCol = Range("'Alle Contacten'!G:G")
For Each Cell In tfCol
If IsEmpty(Cell) Then
Exit Sub


If Cell.Value = “Expert” Then
Cell.EntireRow.Copy
Sheet1.Select
ActiveSheet.Range("A65536").End(xlUp).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
End Sub