Excel VBA macro...help needed

[Puffy2411]

Hello guys, im new in this and im not that smart as you dudes....well to be short i have an issue and would really need your help......i need to sort from master table using only one criteria into other worksheet to copy rows into designated column and row...is that kind of stuff posiblle?

like you see on this pic all gender is in one table how to sort it to be like this in pic 2.......so far i tryed this VBA

Sub assautz()
    Dim c As Range
    'Dim j As Integer
    Dim Source As Worksheet
    Dim Target As Worksheet
    Dim j As Long
    ' Change worksheet designations as needed
    Set Source = ActiveWorkbook.Worksheets("Kombinirani popis")
    Set Target = ActiveWorkbook.Worksheets("Muško-Ženski Assaut")


   j = Target.Cells(Target.Rows.Count, "O").End(xlUp).Row + 1 ' Start copying to row 3 in target sheet
       For Each c In Source.Range("D3:D170")   ' Do 1000 rows
        If c = "female" Then
           Source.Rows(c.Row).Copy Target.Rows(j)
          j = j + 1


        End If
    Next c
End Sub

I would really need your ideas guys......and it would be good if i can specify what row and column where to copy..any ideas?

 

[Puffy2411]

Basicly guys i need help how to search for text "female" in one sheet and to copy all rows that contains word "female" into other sheet into specific coulmn..lets say O into row 3,to paste it one under other...

 

[Puffy2411]

Gents i find the solution how to copy specific range of column and rows into other sheet specific range of colums based on criteria...i hope someone will have a use from that.

Sub Premjestaj_Assaut()

Dim i As Long
Dim j As Long




j = 3    ' it counts from row 3'
With Sheets("Sheet1")
    For i = 2 To 170  'range of rows i want to look'
        If .Cells(i, "your desired column").Value = "assaut" Then    'your column where you entered your text value or word to be searched as criteria'
            .Range("your desired column" & i & ":your desired column" & i & "," & "your desired column" & i & ":your desired column" & i).Copy ' range of cells to be copied....just replace the words  "your desired column"  with your column letter'
            Sheets("Sheet2").Range("your desired column" & j).PasteSpecial Paste:=xlPasteValues, _    'your desired sheet and column from where you want to paste copyed rows'
            Operation:=xlNone, SkipBlanks:=False


            j = j + 1
        End If
    Next i
End With
End Sub