Faster way to copy paste filtered data

[B-Man]

this is my current Macro but it takes a while to process part of the data.... I only have 2000 rows for testing.
Is there a faster way? I normally use

 .Range("").value =.Range("").value

but it doesn't seem to work when filtering the data...

Sub SortData()


        Dim WsSource As Worksheet
        Dim WsDest As Worksheet
        Dim LastRow As Long

      Set WsSource = Sheets("Usage Import")
      Set WsDest = Sheets("Sheet1")
      LastRow = WsSource.Range("A" & WsSource.Rows.Count).End(xlUp).Row
     
  Application.ScreenUpdating = False
 

            With WsSource
               
                .Range("A1:E1").AutoFilter
               
                .Range("$A$1:$E" & LastRow).AutoFilter Field:=1, Criteria1:="Time Of Use"
               
                .Range("B:C").SpecialCells(xlCellTypeVisible).Copy
                WsDest.Range("A:B").PasteSpecial
               
                .Range("E:E").SpecialCells(xlCellTypeVisible).Copy
                WsDest.Range("C:C").PasteSpecial
                WsDest.Range("C1").Value = "TOU"
           

' More of the same formulas here just different filtering 

            End With

  Application.ScreenUpdating = True

End Sub

 

[Alex Blakenburg]

I seem to be overwriting the data rather than it moving the next column
using the same filter just grab data for solar and control load and move it to the next column.

whole point is a column for each data point rather than in one big long line and then not tripling up on date time etc. cuts the data into ~35000 rows

What you are describing is basically a pivot table. I would not be comfortable doing it the way you are doing it.
A Pivot table or Power Query table would ensure that if a From/To Date combination did not have all the every Register Type in it then it would align the matching ones for that From/To Date combination. There are no such guarantees with running the Filter multiple times and effectively pasting items next to each other.

i normally use C1 C2 etc so cells (1,1) etc had me stumped for a bit.

Cells(row, col) give you the option of using column number that you can increment with a counter so that you can use it in a loop.
ie put your register types in an array and loop through the array and add 1 or some other no to the column no on each iteration.
Some people use offset to achieve the same thing.