Pasting inside a range, which is counting up the cells for its second parameter, the row

Question

I would like to paste data from a range, copy it in a new range. This new range is supposed to count up its row by +1 (represented by variable i) for each value (self) that is being pasted. I use self, because i need to extract values from a range that includes empty cells.

I tested the first part, the debug print works, so the self values are obtained correctly. I must be making a mistake with the Range(27, i) part, and also with the Set i = 15 part. Help very appreciated. sincerely

Private Sub EvaluateButton_Click()
    Dim EvaRange As Range   'Evaluation range
    Dim i As Integer        'Counter for free columns
      
    Worksheets("testsheet").Activate
    
    Set EvaRange = Range("C10:C999")
       EvaRange.Copy Range("Z15")
      
    Range("Z15:Z999").Select
        Set i = 15
        For Each self In Selection.SpecialCells(xlCellTypeConstants)
            Debug.Print (self)
            i = i + 1
            self.Copy Range(27, i)
    Next
                                                                
End Sub

Edit: i tried a second version, i think that variables are defined like this: Dim x As Integer x = 6

So shouldn't this work?

    Private Sub EvaluateButton_Click()
    Dim EvaRange As Range  
    Dim i As Integer     
      
    Worksheets("testsheet").Activate
    
    Set EvaRange = Range("C10:C999")
       EvaRange.Copy Range("Z15")
      
    Range("Z15:Z999").Select
        i = 15
        For Each self In Selection.SpecialCells(xlCellTypeConstants)
            Debug.Print (self)
            self.Copy Range(27, i)
            i = i + 1
    Next

Answer 1

This will remove my empty lines :) Now, I have the problem, that my last value is duplicated down the line, a new challenge to handle :)

Private Sub EvaluateButton_Click()
    Dim EvaRange As Range   'Evaluation range
    Dim i As Integer        'Counter for free columns
      
    Worksheets("testsheet").Activate
    
    Set EvaRange = Range("C10:C999")
       EvaRange.Copy Range("Z15")
      
    Range("Z15:Z999").Select
        i = 15
        For Each self In Selection.SpecialCells(xlCellTypeConstants)
            Debug.Print (self)
            self.Copy Cells(i, 27)
            i = i + 1
    Next