I solved this. I'm tying to learn how to write macro. I'm getting better and better. Bur lack of time because of a lack of a good tracking doc at work i'm asking allot.
I just record a Marco. It is doing exactly what i want. But it is copying the field instead of insert it. Because of that the last row is overwrite and i need that because it is my anchor for the charts. It has to insert with the same condition because of the conditional formatting!
Maybe i should make a new topic but here it goes!
Sub Sluitdienst()
'
' Sluitdienst Macro
'
'
ActiveSheet.Range("$B$9:$I$104").AutoFilter Field:=3
Columns("L:S").Select
Selection.Copy
Sheets("PKB").Select
Range("A1").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, -1).Range("A1").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("Invulblad").Select
Range("O2:O6").Select
Selection.ClearContents
Range("L3").Select
Selection.ClearContents
Range("L5").Select
Selection.ClearContents
Range("S9:S223").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-205
Range("K9").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L9:S105").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.ClearComments
Range("J1").Select
End Sub
Bookmarks