Sub COPYPRICES() Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Sheets("PRICES") Set ws2 = Sheets("SHEET1") ws1.Range("T1:AT225").Copy ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub
Sub loopA() Dim cel As Range For Each cel In Range("A1:A" & Range("A1").End(xlDown).Row) [h1] = cel.Value Next cel End Sub
Dim sts As String sts = Range("$H$1").Value If Target.Address = "$H$1" Then Call COPYPRICES End If End Sub
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.