Special Paste Values

[Kevin Stewart]

See below... I need to it to copy, special paste values. No format or formula.

Private Sub K_Click()
Dim lastrow As Long

Let lastrow = Sheets("TUL").Range("B37:I37").End(xlUp).Row
If lastrow < 2 Then
Let lastrow = 2
Else
Let lastrow = lastrow + 1
End If

Sheets("Tulsa").Range("B10:I10")."""""""""copy"""""""" Destination:=Sheets("TUL").Cells(lastrow, 2)
Sheets("Tulsa").Range("B10:D10").Clear
Sheets("Tulsa").Range("F10:I10").Clear

[Kevin Stewart]

I left one thing out. I also need the B10:I10 copy range to to require that all fields have data before it will copy.

[AB33]

Please Login or Register  to view this content.