Getting values from filtered excel table - excel

Question

I am currently trying to copy all filtered values from one excel sheet to another. But it doesnt copy all visible/filtered values. Here a screenshot from my table (the other table where I paste my values is empty):
For example: When I filter the column "Ordnernummer" for the value "1/3" it copies only the following values:
This is how it should look like:
Here is the code I have so far:
Sub getCellRangeValues()
'declare Variant array to hold cell range values
Dim myValuesArray() As Variant
'declare Long to hold the last cell with data
Dim LastRow As Long
'declare variables to hold loop counters used to iterate through the individual values in the cell range
Dim rowCounter As Long
Dim columnCounter As Long
With Worksheets("Konfiguration") 'worksheet with the data
'get the last row from column a
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
'get values from all filtered rows and assign them to an array
myValuesArray = .Range("C2:I" & LastRow).SpecialCells(xlCellTypeVisible).Value
End With
ActiveWorkbook.Worksheets("GoLabel").Activate
'loop through each value in array (rows)
For rowCounter = LBound(myValuesArray, 1) To UBound(myValuesArray, 1)
'loop through each value in array (columns)
For columnCounter = LBound(myValuesArray, 2) To UBound(myValuesArray, 2)
Call setData(myValuesArray, rowCounter, columnCounter)
Next columnCounter
Next rowCounter
End Sub
Sub setData(myValuesArray() As Variant, rowCounter As Long, columnCounter As Long)
With Worksheets("GoLabel")
.Cells(rowCounter, columnCounter).Select
ActiveCell.Value = myValuesArray(rowCounter, columnCounter)
End With
End Sub

Answer 1

I found a workaround. Instead of saving the values in an array I just simply copy the values and paste them in my new sheet. Here the corresponding code:
'worksheet with the data
With Worksheets("Konfiguration")
'get the desired column range which is declared in the cell
startRange = "C1"
endRange = "I101"
'select values from all filtered rows
.Range(startRange & ":" & endRange).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
End With
'worksheet which I fill with the copied data
ActiveWorkbook.Worksheets("GoLabel").Activate
With Worksheets("GoLabel")
.Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub