Copy and paste into last row of other sheet

Hi
Post sample data...

It's really hard to fully understand without a sample workbook. With that said, the following is untested, but should at the very least get you going in the right direction.

Please make a copy of your workbook and test the code on your copy.

Option Explicit

Sub SendToMaster()

Dim ws1           As Worksheet
Dim ws2           As Worksheet
Dim rngCell       As Range
Dim rngsource     As Range
Dim rngDest       As Range
Dim lngLastCol    As Long
Dim lngThisRow    As Long

Set ws1 = ActiveWorkbook.Sheets("Master")
Set ws2 = ActiveWorkbook.Sheets("Result")

   With Application
      .ScreenUpdating = False
      .EnableEvents = False
   End With

      With ws1
         Set rngsource = .Range("C2", .Range("C2").End(xlDown))
         lngLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
      End With
   
      With ws2
         Set rngDest = .Range("A2", .Range("A50000").End(xlUp)).Offset(1, 0)
      End With
   
      For Each rngCell In rngsource
         'You will need to change the logic within the If statement below as it was
         'not provided in your original post
         If rngCell.Value > 0 Then
            lngThisRow = rngCell.Row
            Set rngToCopy = Range(Cells(lngThisRow, 1), Cells(lngThisRow, lngLastCol))
            rngToCopy.Copy
            rngDest.PasteSpecial xlPasteValues
         End If
      Next

   With Application
      .ScreenUpdating = True
      .EnableEvents = True
   End With

End Sub